This Page Is Inserted by IFW Operations 
and is not a part of the Official Record 

BEST AVAILABLE IMAGES 



Defective images within this document are accurate representations of 
the original documents submitted by the applicant. 

Defects in the images may include (but are not limited to): 

• BLACK BORDERS 

• TEXT CUT OFF AT TOP, BOTTOM OR SIDES 

• FADED TEXT 

• ILLEGIBLE TEXT 

• SKEWED/SLANTED IMAGES 

• COLORED PHOTOS 

• BLACK OR VERY BLACK AND WHITE DARK PHOTOS 

• GRAY SCALE DOCUMENTS 

IMAGES ARE BEST AVAILABLE COPY. 



As rescanning documents will not correct images, 
please do not report the images to the 
Image Problem Mailbox. 



mPA <% BLANK 



(USPTO) 



4 
I' 



REPUBLIQUE FRANCA' 




INSTITUT 
NATIONAL DE 
LA PROPRIETE 
INDUSTRIELLE 



REC'D 0 1 FEB 1999 



WIPO PCT 



BREVET D' INVENTION 



CERTIFICAT D'UTILITE - CERTIFICAT D'ADDITION 



COPIE OFFICIELLE 



PRIORITY 
DOCUMENT 

SUBMITTED OR TRANSMITTED IN 
COMPLIANCE WITH RULE 17.1(a) OR (b) 



Le Directeur general de I'lnstitut national de la propriete 
industrielle certifie que le document ci-annexe est la copie 
certifiee conforme d'une demande de titre de propriete 
industrielle deposee a I'lnstitut. 

Fait a Paris, le 0 5 J AM...... 1??? 



Pour le Directeur general de I'lnstitut 
national de la propriete industrielle 
Le Chef du Departement des brevets 




Martine PLANCHE 



INSTITUT 
NATIONAL DE 
LA PROPRIETE 
I N DUSTRIELLE 



SIEGE 

26 bis. rue de Saint Petersburg 
75800 PARIS Cedex 08 
Telephone : 01 53 04 53 04 
Telecopie : 01 42 93 59 30 



ETABUSSEMENT PUBLIC NATIONAL CREE PAR LA LOI N« 51-«44 OU 19 AVRIL 1951 



fs. 



THIS PAGE BLANK (uspto) 



•P 1 

^^^^^ tnaTiTuT 

NATIONAL Df 
P LA PIOPKIITI 

IJIDU«T1tllLk« 



1 



26 bis. rue de Saint Petersbourg 
75800 Paris Cedex 08 

Telephone : 01 53 04 53 04 Telecopie : 01 42 93 59 30 
«_i Reserve a I'INPI — 



BREVET D'INVENTION, CERTIFICAT D'UTILITE x^gj^ 

Code de la propriete intellectuelle-Livre VI N „ 5 g .1328 

REQUITE EN D&JVRANCE 

Confirmation d'un depot par telecopie [ j 

Cei imprime est a rcmptir a I'encre noire en tettrw capitates 



DATE DE REMISE DES PIECES 
N° D'ENREGISTREMENT NATIONAL 
DEPARTEMENT 0E DEPOT 75 

3 0 DEC. 1997 



5aOEC1997 
97 16699" 



OATE DE DEPOT 



2 DEMANDE Nature du trtre de propriete industrielle 

irevet d'invention □ demande divisionnaire 



certificat d'titilite 



demande initiate 

[ [ transformation d'une demande 

de brevet europeen rj bf&je{ d . jnvention Q certificat d'utilite n d 

Etablissemerrt du rapport de recherche fj differe [^immediat 

Le demandeur. personne physique, requiert le paiement echelonne de la redevance Q out 

Trtre de llnvention (200 caracteres maximum) 



NOM ET ADRESSE DU DEMANDEUR OU DU MANDATAIRE 
A QUI LA CORRESPON DANCE DOIT ETRE ADRESSEE 



BULL S.A. 

Monsieur Herve DENIS 
68, route de Versailles 
PC : 59C18 

78434 LOUVECEENNES 

■ 

n°du pouvoir permanent references du correspondant 

PG4972 FR 3587 HP 



telephone 

01.39.66.61.80 



□ 



Precede cT assistance a P administration d'une application distribute basee sur un fichier binaire de 
configuration dans un systeme informatique. 



3 DEMANDEUR (S) «• siren 6 4 2 0 5 8 7 3 9 
Nom et prenoms (souligner le nom patronymique) ou denomination 



BULL S.A. 



code APE-MAF 



3 0 0 C 



Forme juridique 



Nationaiite (s) Fransaise 

Adresse (s) complete (s) 

BULL S.A. 

68, route de Versailles 

78434 LOUVECIENNES 



Pays 

FRANCE 



En cas d* insuffisance de place, pourstnvre sur papier 



fibre Q 



4 INVENTEUR (S) Les Inventeurs sort les demandeurs 



rton Si la reponse est non. feurnir une designation separee 



5 REDUCTION DU TAUX DES REDEVANCES 



□ requise pour la lere fois . Q requise anterieurement au depot ; joindre copie de la decision d'admission 



6 DECLARATION DE PRIORI!* OU REQUITE DU BENEFICE DE LA DATE DE DEPOT D'UNE DEMANDE ANTER1EURE 
pays d'origine numero date de depot 



nature de ta demande 



7 DIVISIONS anterieures a ta present* demande n° 



date 



8 Signature du demandeur ou du mandataire 

(nom et qtalke du signataire - n° ^inscription) 

Heifr6 QENIS ^gnandataire) 




SIGNATURE DU Pr5SeTlAR£CEPTI0N SIGNATURE APRES ENREGISTREMENT DE LA OEMANDE A LINPI 




BREVET D'INVENTIOlM, CERTIFICAT 
D'UTILITE 



DESIGNATION DE L'INVENTEUR 

(si le demandeur n'est pas I'inventeur ou I'unique inventeur) 



DIVISION ADMINISTRATIVE DES BREVETS 

26bis, rue de Saint-Petersbourg FR 3587 HD 
75800 Paris Cedex 08 

Tel. : (1) 42 94 52 52 - Telecopie : (1) 42 93 59 30 


N° D'ENREGISTREMENT NATIONAL 


T1TRE DE ^INVENTION : 




Procede d' assistance a r administration d'une application distribute baste sur un 
fichier binaire de configuration dans un syst&ne informatique. 


LE (S) SOUSSIGNE (S) 




BULL S.A. 




DESIGNE (NT) EN TANT QU'INVENTEUR (S) (indiquer nom, prenoms, adresse et souligner te nom patronymique) : 


Baillif Christian 

7 bis, avenue du Petit Chambord 
92340 Bourg la Reine 
France 




Dia Mama Saidou 
181, avenue Jean Jaures 
92290 Chatenay Malabry 
France 




NOTA : A titre exceptionnel, le nom de I'inventeur peut etre suivi de celui de la society a laqueile il appartient (soctete 
d'appartenance) lorsque celle-ci est differente de la soci6t6 d^posante ou titulaire. 


Date et signature (s) du (des) demandeur (s) ou du mandataire 


kouveciennes, le 8 janvier 1998 




ILj . 

Herve DENIS (Mandataire) 





INPI 

■■MM llfsTITVT 

NATIONAL PI 
LA noMIITI 
INOUSTSIBLLK 



DOCUMENT COMPORTANT DES MODIFICATIONS 



PAGE(S) DE LA DESCRIPTION OU DES REVENDICATIONS 
OU PLANCHE(S) DE DESSIN 


R.M.* 


DATE 
DE LA 
CORRESPONDANCE 


TAMPON DATEUR 
DU 

CORRECTEUR 




Supprim6e(s) 


Ajoutee(s) 








Ml 




- 4 JUIN 1998 B £ P 


**1 l4,2o r3 










2 2 JUIN 1998 BEP 












- 6 JUIL 1998 BEP 











































































Un changement apporte a la redaction des revendications d'origine, sauf si celunci decoule des dispositions de I'article R.612-36 
du code de la Proprtete Intellectuelle, est signale par la mention «R.M.» (revendications modifees). 



1 



Precede d'assistanc a I'administrati n d'une application distribute 
basee sur un fichier bin aire de configuration dans un svsteme 

informatiaue 

La presente invention concerne un precede d'assistance a 
I'administration d'une application distribute basee sur un fichier binaire de 
configuration dans un systeme informatique. Ce precede d'assistance a 
I'administration peut notamment etre applique a un gestionnaire de 
traitement des transactions tel que celui commercialise sous la marque 
'Tuxedo". 

[.'application "Tuxedo" permet a differents logiciels qui ne se 
connaissent pas mais qui respectent un certain protocole, de travailler 
ensemble. 

Generalement, I'application 'Tuxedo" est une application distribute 
c'est-a-dire une application qui s'execute sur plusieurs machines en meme 
temps. On appelle "machine", le noeud du reseau au niveau duquel les 
serveurs de I'application 'Tuxedo" s'executent, et "machine maitre" celle 
contr6lant I'application 'Tuxedo". La figure 8 illustre le fonctionnement de 
I'application "Tuxedo". Lorsque I'application "Tuxedo" est lancee, le fichier 
binaire de configuration (TUXCONFIG) est charge du disque dans le tableau 
bulletin (Bulletin Board, BB) de la machine maitre (Mm). Le tableau bulletin 
(BB) represente un ensemble de structures de donnees situees dans la 
memoire partagee et contenant des informations sur les transactions, les 
serveurs, les services et les clients appartenant a I'application 'Tuxedo". 
Lors du I an cement de la machine mattre (Mm), le tableau bulletin (BB) est 
charge dans la memoire de la machine mattre (Mm) a partir du fichier binaire 
de configuration 'Tuxedo" (TUXCONFIG). Puis, il est diffuse vers les 
machines esclaves (Me) par le processus maitre de I'application appel ' 
liaison distinguee du tableau bulletin DBBL (Distinguished Bulletin Board 
Liaison). Chaque machine de I'application est sous le controle d'un 



2 



processus appele liaison du tableau bulletin BBL (Bull tin Bord Liaison). La 
liaison distinguee du tableau bulletin DBBL est un processus administratif 
qui communique avec les processus (BBL), pour coordonner les mises a jour 
du tableau bulletin (BB). La liaison du tableau bulletin BBL est un processus 

5 administratif charge de tenir a jour une copie du tableau bulletin (BB) sur sa 
propre machine (Me). Chaque machine (Me) est sous le controle d'un 
processus appele BBL, defini implicitement par "Tuxedo". Le pont (BRIDGE) 
(1 ) est un processus de gestion des communications entre les serveurs de 
1'application 'Tuxedo". Chaque machine est dotee d'un pont defini 

10 implicitement par 'Tuxedo". Le serveur TMS (Transaction Manager Server) 
est un processus qui gere un protocole de validation et la reprise pour les 
transactions executees par plusieurs serveurs applicatifs. Le module 
d'ecoute (tlisten, 3) est un processus qui gere les messages destines a 
I'application 'Tuxedo" sur une machine donnee, avant que le processus pont 

is (BRIDGE) de cette machine n'ait ete lancee. Un module d'ecoute permet a 
une machine de recevoir des informations provenant d'autres machines. Un 
module d'ecoute est obligatoire sur chaque machine lorsque I'application est 
distribute. 

L'application 'Tuxedo" est creee par la constitution d'un fichier 
20 binaire de configuration qui definit ('architecture de ladite application (figure 
7). Lors de la creation du fichier de configuration, un administrateur definit 
les services (Se) fournis par I'application et les assigne a des serveurs (Sr) 
d'application. L'administrateur definit ensuite des groupes (G) et assigne un 
ensemble de serveurs (Sr). Enfin, l'administrateur assigne des groupes (G) a 
25 une machine (M). Chaque application doit etre dotee au minimum d'un 
groupe (G), d'un service (Se) et d'un serveur (Sr). Une machine (M) peut 
gerer plusieurs groupes (G). 

Apres la creation d'une application 'Tuxedo", celle-ci doit etre 
administree. L'objet de I'invention est de creer un systeme d'assistance a 
30 I'administration de I'application 'Tuxedo". Les principals etapes concernant 
I'administration d'une application 'Tuxedo" consistent en : 
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- une etape de chargement du fichier binaire de configuration de 
I'application 'Tuxedo" ; 

- une etape de lancement des modules d'ecoute lorsque I'application 
'Tuxedo" est une application distribute ; 

5 - une etape de lancement de I'application Tuxedo ; 

. une etape de controle de I'application. Celle-ci consiste a afficher 
des informations et a proceder, s'il y a lieu aux corrections requises ; 

- une etape d'arret de l'application ; et eventuellement 

- une etape d'arret des modules d'ecoute lorsque ceux-ci ont ete 

10 lances. 

L'administration d'une application distribute peut rapidement devenir 
tres complexe. En effet, avant que cette administration puisse demarrer, 
I'operateur doit activer uh module d'ecoute sur chaque machine esclave sur 
laquelle il veut agir. Pour cela, I'administrateur doit tout d'abord consulter un 

is fichier contenant des informations sur I'activation des modules d'ecoute. Ce 
fichier est generalement stocke, a une place dont il faut se souvenir, sur 
chaque machine. Puis a I'aide de ces informations, I'operateur doit activer 
tour a tour le module d'ecoute de chaque machine. Ainsi, si Tapplication 
concerne dix machines, Toperateur doit activer le module d'ecoute sur les 

20 dix machines, puis a la fin de I'application, desactiver les dix modules 
d'ecoute. Cette operation repetitive est longue et fastidieuse. 

Pour effectuer ces taches, chaque administrateur a sa solution. La 
solution la plus courante est de stocker sur chaque machine, a une place 
dont il faut se souvenir des scripts d'activation des modules d'ecoute et 

25 d'avoir une copie papier du fichier de configuration. L'administrateur doit 
veiller a ce que les informations soient a jour a tout moment. A chaque fois 
que la configuration change, il ne doit pas oublier d'imprimer une copie 
papier du fichier de configuration et de mettre a jour les scripts sur les 
machines esclaves. 

30 D'autre part, a chaque fois que Toperateur veut agir sur un elem nt 

d'une application, il doit pouvoir identifier rapidement et de fagon sure une 



ressource donnee comme par exemple, I'arret du serveur "servl" 
appartenant au groupe "groupl" sur la machine "machl". 

Lorsque le nombre d'application augmente, ces operations 
manuelles sont source de nombreuses erreurs. 

La presente invention a pour but de remedier aux inconvenients de 
I'art anterieur en proposant un procede d'assistance a ^administration d'une 
application distribuee d'un gestionnaire de traitement des transactions, 
basee sur le fichier binaire de configuration de I'application caracterise en ce 
que ledit procede comporte: 

- une etape de decompilation du fichier de configuration actif de la 

machine maTtre, 

- une etape de recuperation ^informations dans le fichier de 
configuration decompile de la machine maTtre (Mm), 

- une etape de verification de la consistance de ladite application 
mise en oeuvre sur une machine donnee. 

Selon une autre particularite, ledit procede permet de gerer au 
moins un module d'ecoute (3) d'uhe machine quelconque de I'application a 
partir d'une autre machine. 

Selon une autre particularite, les informations concernant ladite 
application distribuee sont directement prelevees dans le fichier de 
configuration actif de la machine maitre. 

Selon une autre particularite, I'etape de verification de consistance 
de ladite application consiste en une comparaison entre des informations 
issues du fichier de configuration de la machine maTtre et des informations 
issues de ladite application courante mise en oeuvre sur une machine 
donnee. 

Selon une autre particularite, ladite gestipn des modules d'ecoute 
permet de lancer et d'arreter au moins un module d'ecoute, d'afficher des 
informations concernant au moins un module d'ecoute, de modifier le journal 
d'au moins un module d'ecoute, de verifier le script d'au moins un module 
d'ecoute et de mettre a jour le script d'au moins un module d'ecoute. 
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Selon une autre particularite, un administrateur se trouvant sur une 
machine quelconque du reseau peut lancer ou arreter un module d'ecoute 
mis en oeuvre sur une autre machine du reseau. 

Selon une autre particularite, ledit procede permet d'activer 
5 plusieurs modules d'ecoute en une seule operation. 

Selon une autre particularite, une interface graphique facilite la 
gestion des modules d'ecoute. 

Selon une autre particularite, ladite interface graphique permet de 
visualiser la structure de ladite application et de selectionner une valeur 
10 voulue dans une liste de valeurs de la configuration courante. 

Selon une autre particularite, lorsque le fichier contenant des 
informations sur ladite application mise en oeuvre sur une machine donnee 
(tlog) est inexistant, le procede le genere automatiquement pour pouvoir 
I'utiliser lors du prochain lancement des modules d'ecoute (3). 
15 Selon une autre particularite, lesdites informations affichees 

concernant au moins un module d'ecoute comprennent au moins le nom de 
ladite application, le nom logique de la machine (LMID) sur laquelle ladite 
application est executee, I'identification de I'administrateur (UID) de ladite 
application, I'adresse utilise par le module d'ecoute (NLSADRR), le chemin 
20 d'acces au reseau de ladite application, le chemin d'acces au fichier journal 
dudit module d'ecoute (LLFPN). 

D'autres particularites et avantages de la presente invention 
apparaTtront plus clairement a la lecture de la description ci-apres faite en 
reference aux dessins annexes dans lesquels : 
25 - la figure 1 represente une fenetre de I'interface graphique 

proposant I'acces aux commandes principales de gestion des modules ; 

- la figure 2 represente une fenetre de I'interface graphique selon la 
figure 1 permettant d'activer un du plusieurs modules d'ecoute ; 

- la figure 3 represente une fenetre de I'interface graphique selon la 
30 figure 1 permettant I'arret d'un ou de plusieurs modules d'ecoute ; 
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- la figure 4 represente une fenetre de I'interface graphique selon la 
revendication 1 permettant Paffichage d* informations concernant un module 
d'ecoute d'une application donnee ; 

- la figure 5 represente une fenetre de I'interface graphique selon la 
5 revendication 1 qui permet de verifier le script d'un module d'ecoute d'une 

application donnee ; 

- la figure 6 represente une fenetre de I'interface graphique selon la 
revendication 1 qui permet de mettre a jour le script d'un module d'ecoute 
sur une machine donnee d'une application donn§e ; 

io - la figure 7 represente la structure generate d'une application 

distribute d'un gestionnaire de traitement des transactions ; 

- la figure 8 represente un exemple duplication d'un gestionnaire 
de traitement des transactions. 

Suit un exemple non limitatif de specification de fichier de 
15 configuration. Ce fichier de configuration, presente en annexe 1, concerne 
I'application 'Tuxedo". II est divise en sept sections (ressources, machines, 
groupe, serveur, service, reseau). 

La section ressource contient des informations generates 
concernant I'application. Ces informations sont communes a toutes les 
20 machines et sont constitutes par les parametres suivants : 

- IPCKEY qui represente une cle numerique identifiant le segment 
de memoire partagee dans lequel sont stockees les structures d'application. 
Grace a cette cle numerique, une application donnee ne peut pas etre en 
conflit avec d'autres applications ; 

25 - MASTER qui represente la machine maitre ; 

- DOMAIN ID qui represente le domaine de Tapplication ; 

- MAXACCESSERS qui definit le nombre maximum de personnes 
pouvant acceder a I'application ; 

- MAXSERVERS qui definit le nombre maximum de serveurs 
30 pouvant etre rattache a Tapplication ; 
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- MAXSERVICES qui definit le nombre maximum de services 
pouvant etre rattache a I'application ; 

- OPTIONS qui permet de preciser si I'application a lieu sur un 
reseau local ; 

- MODEL qui permet de preciser si I'application est distribute ou si 
elle ne Test pas. 

La section machines contient des informations sur chaque machine 
(puce, trifide, zig, orage) du reseau. Ces informations sont constitutes par 
les parametres suivants : 

- LMID qui definit le nom logique de la machine c'est-a-dire le nom 
utilise en interne par I'application, i la place du nom reseau; 

de reseau de la machine. Pour simplifier la redaction du programme, 
on fait corresponds au nom interne de la machine, un nom logique appele 
"LMID" (Logital Machine ID) ; 

- TUXDIR qui specifie le chemin d'acces au repertoire d'installation 
du logiciel 'Tuxedo" ; 

- APPDIR qui specifie le chemin d'acces aux serveurs applicatifs, 
c'est-a-dire le chemin menant aux programmes de I'application (par exemple 
les programmes concemant I'application 'TUXEDO") ; 

- TUXCONFIG qui specifie le chemin d'acces absolu au fichier 
binaire de configuration TUXCONFIG, celui-ci contenant des informations 
sur I'application ; 

- ENVFILE qui specifie le chemin d'acces au fichier contenant les 
variables d'environnement pour les serveurs et pour les clients d'une 
machine donnee; 

- ULOGPFX qui specifie le chemin d'accds au fichier "ULOG" qui 
contient des informations sur I'historique de Tapplication. 

La section groupe est la section dans laquelle chaque machine est 
attribute a un groupe. Dans I'exemple de I'annexe 1, il existe quatre 
groupes. Un groupe est un ensembl de serveurs assurant des services 
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connexes. Dans le cas le plus simple, un groupe n'est constitue que d'un 
seul serveur. Tous les serveurs d'un groupe doivent s'executer sur la meme 
machine. Une application doit comporter au moins un groupe. 

La section serveur fournit des renseignements sur chaque serveur. 
5 Un serveur est un module fournisseur de services. Dans Pexemple a 
I' annexe 1, il existe quatre serveurs. Dans le cas le plus simple, un serveur 
assure un seul service. Une application doit etre dotee d'au moins un 
serveur. La section serveur fournit les renseignements suivants : 

- SRVGRP qui definit le groupe auquel le serveur est affilie ; 
10 - SRVID qui definit le numero d'identification du serveur ; 

- MIN, MAX qui precisent le nombre maximum et minimum 
^occurrences de ce serveur; 

- RQADDR qui definit le nom de la queue de message utilisee pour 
renvoi d'un message ; 

is - dans REPLYQ Padministrateur decide de Texistence d'une queue 

de reponse ; 

- CLOPT qui indique les options de demarrage du serveur (services 
disponibles priorite, ....). 

Dans la section service, I'administrateur peut specifier les services. 

20 Un service est un ensemble de fonctions repondant a des requetes de 
services emanant d'utilisateurs finaux de Tapplication. Si Tadministrateur 
desire indiquer des valeurs facultatives differentes des valeurs par defaut, 
les services doivent obligatoirement etre definis. 

La section reseau (network) contient pour chaque machine : 

25 - I'adresse complete utilisee par le processus pont (BRIDGE) 

appelee "Network Address" ou "NADDR". Les quatre premiers chiffres (0002 
dans Texemple de la figure 4) represented le protocole de communication 
utilise ("tcp" dans Texemple ci-dessus). Les quatre chiffres suivants 
represented le numero de port utilise par le processus et les chiffres 

30 suivants represented Padresse r§seau de la machine ; 
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- le chemin d'acces au pont (BRIDGE) de la machine. Le pont est un 
processus de gestion des communications entre les serveurs de 
I'application. II sert a amorcer I'application. Ch'aque machine est dotee d'un 
pont. 

5 - I'adresse complete du module d'ecoute appelee "NLSADDR". Les 

quatre premiers chiffres represented le protocole de communication utilise. 
Les quatre chiffres suivants represented le numero de port utilise par le 
module d'ecoute qui doit etre different de celui utilise par le processus pont 
(BRIDGE). Les chiffres suivants represented I'adresse reseau de la 

10 machine. 

La particularity de ('invention est que les informations concernant 
I'applicaticn sont directement prelevees dans le fichier actif de la machine 
maitre. Un administrateur se trouvant sur une machine quelconque du 
reseau peut gerer r execution de la commande "geMuxval" sur la machine 
15 maitre pour le compte de Padministrateur comme represents en page 1 de 
I'annexe 2. 

La sous routine "geMuxconfig" du programme utilise dans la mise 
en oeuvre du procede ^assistance a I'administration d'une application 
distribuee, recherche sur le disque dur de la machine maitre le fichier actif 
20 de configuration de I'application. Celui-ci est ensuite decompile au moyen de 
la commande "tmunloadcf ' (Page 2 de Annexe 2, Lignes 85 a 99). 

get_tuxconfigO { 

if [ -s tuxconftmp.Sappname ] 
25 then 

cat tuxconftmp.Sappname 

else 

rm -f tuxconf tmp.* 
p^og= ,, $Env H, 
30 $TUXDIR/bin/tmunioadcf 
echo "\nexit $? M 

#print -r "Sprog" > prog 

rsh "SMASTER" -1 "SADMEN" "Sprog" | tee tuxconftmp.Sappname 

35 fi 

get_tlistenlog 
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} 

La sous routine "geMuxval" de ce programme (Page 2 de I'annexe 
2, lignes 112 a 183) preleve les parametres tels que LMID, APPDIR, 
5 TUXCONFIG, TUXDIR, ROOTDIR, ULOGPFX, NLSADDR, UID et BRIDGE 
du fichier binaire de configuration de Tapplication obtenue a I'aide de la sous 
routine "get_tuxconfig". 

get_tuxvalO { 
10 get__tuxconfig | \ 

sed -e "s/=/ /g" -e W/g' -e 'sAWVO/g' 1 awk 1 

Les valeurs des parametres recherchees sont tout d'abord 
initialisees. Pour cela des matrices associatives appelees 
15 "tuxconfig_section" sont creees. 
BEGIN { 

tuxconfig_section[ H *RESOURCES"] = 1 
tuxconfig - section[ ,, *MACHI^IES ,, ] =2 
tuxconfig^sectiont'^GROUPS"] =3 
20 tuxconfig_section["*SERVERS"] = 4 
tuxconfig_section[" * SERVICES"] =5 
taxconfig_section[" ♦ROUTING"] - 6 
tuxconfig_section["*NETWORK"] = 7 

} 

25 

Un index est associe a chaque matrice. Les parametres recherches 
sont situes dans differentes sections du fichier de configuration. Par 
exemple pour ('application "Tuxedo", ces differentes sections, au nombre de 
sept, sont appelees "Ressources", "Machines", "Groupes", "Serveurs", 
30 "Services" et "Reseau". Pour pouvoir prelever les parametres dont 
I'ordinateur a besoin, il doit pouvoir reperer I'endroit ou il se trouve dans le 
fichier de configuration. Dans ce programme, lorsque le nombre de champ 
(NF) est egal a 1 , I'ordinateur se trouve au debut d'une section. 



35 NF= l { 

if ( $ 1 in tuxconfig_section ) { 
section = tuxconfig_section[$l] 
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next 

} 

Si I'ordinateur est dans la section 2 et que le deuxieme mot est 
LMID, I'ordinateur preleve le nom logique de la machine (LMID) sur laquelle 
Padministrateur se trouve. 



section = 2 && $2 = "LMID" { # MACHINES section 
if ($3 = machine) { 

printf "uname=%s\n" , $ 1 

mach_found= 1 

} 

else { # reset machjfcund for furtheur machines 
machjfbund = 0 

> 

next 
} 

Si I'ordinateur est dans la section 2 et que le premier mot est 
APPDIR, il preleve le chemin d'acces au repertoire sous lequel les serveurs 
sont amorces. 



section = 2 && $1==" APPDIR" && mach_found==l { 
printf "appdir=%s\n", $2 

appdir = $2 
next 

} 

En procedant de la meme maniere, I'ordinateur va relever 
successivement dans la section machine du fichier de configuration le 
chemin d'acces absolu au fichier binaire de configuration (TUXCONFIG), le 
chemin d'acces au repertoire d'installation du logiciel Tuxedo (TUXDIR ou 
ROOTDIR), des informations sur I'historique de I'application (ULOGPFX) et 
dans la section reseau I'adresse du pont de la machine (NLSADDR). 



section = 2 && $ 1 ="TUXCONFIG" && mach_found — 1 { 
printf "tuxconfig=%s\n", $2 
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next 

section = 2 && $1="TUXDIR" && mach_found==l { 
printf ' 'tuxdii=%s\n", $2 

5 next 

section = 2 && $l="ROOTDIR" && mach_found==l { # for V4 
printf "tuxdir=%s\n", $2 

next 
10 } 

section = 2 && $l="ULOGPFX" && mach_found=l { 
ulogpfic=l; printf "ulogpfx=°/os\n", $2 
next 
} 

15 section = 7 &&NF — 1 { 
if ( $1 = machine ) 
{mach_found =1} 
else { # reset mach_found for other machines 
mach_found = 0 
20 } 
next 

section = 7 && $ 1 ="NLS ADDR" && mach_found=l { 
printf "nlsaddr^/osW, $2 

25 next 

} 

Le programme execute une boucle sur cette sous routine pour 
chaque machine jusqu'a ce que I'ordinateur trouve la machine courante. 
30 Puis, Tordinateur se procure dans la section ressources du fichier de 
configuration Identification de I'utilisateur de I'application (UID). 

section = 1 && $1 = "UID" {printf "uid=%s\n\ $2 ;next } 

35 Si aucune valeur n'a ete definie pour I'UID dans le fichier de 

configuration, c'est I'UID de la personne qui a construit I'application qui sera 
utilise. Puis, I'ordinateur releve dans la section reseau du fichier de 
configuration le chemin d'acces au pont (BRIDGE) de la machine. 



40 section = 7 && $1="BRIDGE" && mach_found=l { 
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Le parametre ULOGPFX representant I'historique cle la machine est 
une valeur optionnelle. Lorsqu'il est inexistant, I'ordinateur va generer un 
fichier appele "ULOG" dans le repertoire APPDIR contenant des 
informations sur les manipulations open§es sur Papplication. 

5 

if(ulogpfic = 0) { 

printf "ulogpfx^/os/ULOGVn", appdir } 

} 1 machine=$machine appname=$appname 
lang=^sed -e "s/=/ /g" -e "s/V/g" -e "s/;/ /" $ConflDir/$appname.tux | awk ' 
10 $1 = "LANG" {printf "lang=", $2}' * 

} 

De plus, I'ordinateur a besoin de la langue de travail de Implication 
representee par le parametre LANG, ainsi que de la valeur "tlog M . Le 
15 parametre LANG se trouve dans le fichier de configuration de I'utilisateur. 

lang^sed -e "s/=/ /g" -e "s/V/g" -e "s// /" $Con£Dir/$appname.tux | awk ' 
$1 = "LANG" {printf "lang=", $2}' * 

20 La valeur 'Hog" fait reference au fichier "tlistenlog . <nom de 

l'application> . <nom de la machine> M contenant le nom du fichier historique 
du module d'ecoute. 

Dans la sous routine get_tuxval, le programme a rassemble toutes 
les variables d'environnement dont il a besoin pour pouvoir lancer le 

25 procede d'assistance a ('administration d'une application distribuee. Ce 
procede permet, en outre d'amorcer et d'arreter un ou plusieurs modules 
d'ecoute, d'afficher des informations sur un ou plusieurs modules d'ecoute, 
de modifier le journal d'un ou plusieurs modules d'ecoute, de verifier le script 
d'un ou plusieurs modules d'ecoute et enfin de mettre a jour le script d'un ou 

30 plusieurs modules d'ecoute (Figure 1 ). 

Le procede d'assistance a I'administration d'une application 
'Tuxedo" distribuee est dote d'une interface graphique qui permet I'acces 
aux commandes du gestionnaire de traitement des transactions. Pour 
executer une t§che, Tadministrateur n'est pas tenu d'entrer des commandes, 
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il lui suffit de cliquer sur des icones, d'appeler des menus et de sp 'cifier des 
valeurs via des boites de dialogue. Le procede d'assistance est pilote par 
menus, structures sous forme d'arborescenc'e. La selection d'une option 
dans le menu principal entraTne I'affichage du menu de niveau inferieur 
associe. Ce processus est repete jusqu'a I'affichage d'une boite de dialogue 
deroulante dans laquelle I'administrateur doit entrer des valeurs de 
parametre. Afin de pouvoir gerer les modules d'ecoute de I'application 
•Tuxedo" distribute, I'administrateur selectionne a partir du menu principal 
de "Tuxedo Commands", les fonctions 'Tuxedo Commands", "Start/Stop 
Tuxedo Configuration", "Set up a Tuxedo Application" et "Manage th 
Listener Processes". Les fonctions selectionnables "Strart Listener 
Processes ", "Stop Listener Processes", "Change/Schow Listener Process 
Parameters", "Schow currently running Listener Processes", "Check 
consistency of Listener Process scripts with TUXCONFIG Level" et "Update 
Listener Process to TUXCONFIG Level" apparaissent sur la fenetre de 
I'interface graphique (Figure 1). Pour lancer des modules d'ecoute, 
I'administrateur doit selectionner la commande "Start Listener Processes" en 
positionnant le curseur de sa souris sur le pave (11) et en appuyant sur le 
bouton gauche de sa souris. La fenetre de la figure 2 apparait apres la 
selection. Si une application a ete prealablement designee, son nom est 
affiche sur le pave (21 ). Sinon, I'administrateur est informe par la marque 
clignotante du curseur qu'il doit en donner une. Pour cela, I'administrateur 
peut soit cliquer sur le bouton "List" (22) pour afficher la liste des 
applications enregistrees et en selectionner une, soit entrer explicitement le 
25 nom de I'application desiree. Puis I'administrateur est informe par la marque 
clignotante du curseur dans le pave (23), a partir de laquelle il doit preciser 
le nom des machines sur lesquelles un module d'ecoute doit etre lance. De 
la meme facon, la liste des machines comprises dans ladite application peut 
etre obtenue en cliquant sur le bouton "List" (22). Pour valider les machines 
30 selectionnees, par exemple par surbrillance, I'administrateur doit cliquer sur 
le bouton "OK" (24). La commande de demarrage du module d'ecoute est 
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obtenue par la selection du bouton "Command" (25). Le bouton "Reset" (26) 
permet de reinitialiser les valeurs des paves (21) et (23). Le bouton "Cancel" 
(27) permet d'annuler une valeur introduite sur les paves (21) et (23). Le 
bouton "?" (28) offre une aide en ligne a I'administrateur. 

5 Pour chaque machine designee dans la liste des machines, 

I'ordinateur se procure des informations sur Papplication dans le fichier de 
configuration de la machine maitre et un fichier historique appele fichier 
"tlistenlog . <nom de l'application> . <nom de la machine>" contenant des 
informations sur Tapplication agissant actuellement sur cette machine. 

10 L'ordinateur verifie d'abord si le module d'ecoute n'est pas deja demarre sur 
la machine. Si c'est le cas, le message "Listener already running on <nom 
de la machine>" est imprime sur I'ecran. Sinon, si un fichier local existe, 
I'ordinateur I'execute et imprime le message "Listener started on the 
machine", si la commande reussit. Si la commande echoue, I'ordinateur 

is imprime le message "Listener starting failed on <nom de la machine>". Si le 
fichier local rfexiste pas, I'ordinateur genere un fichier "tlistenlog . <nom de 
l'application> . <nom de la machine>" dans le repertoire APPDIR, I'execute 
et rend compte du resultat comme precedemment Ce fichier contient des 
informations sur Tapplication courante et sera utilise dans le prochain 

20 lancement des modules d'ecoute. Ceci correspond aux lignes 652 a 698 de 
la page 10 et aux lignes 699 a 719 de la page 1 1 de I'annexe 2. 

startlistproc) 
appname=$l; shift 

25 Ust= ,, $* H 

set_environ 
boucle_status-0 
exit_status=0 
for machine in Slist 
30 do 

echo "\n Machine: Smachine \n" 

get^tuxval > "appname.tux ,, 
get_Jllog 
. Vappname.tux 
35 progl-" 

TUXDIR=$tuxdir; export TUXDIR 
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ROOTDIR=$tuxdir; export ROOTDIR # V4 
APPDIR=$appdir; export APPDIR 
TUXCONFIG=$tuxconfig; export TUXCONFIG 
PATH=${PATH} :\$TUXDIR/bin:\$APPDIR; export PATH 
LANG=$lang; export LANG 

LIBPATH=${LIBPATH} :$tuxdir/lib; export LIBPATH 
COLUMNS=200; export COLUMNS 

ps -eF ,0 /ou %p %a' | awk *\$3 ~ \"tlisten\" && \$0 ~ Y'SnlsaddrY' {exit 1 }' 
if[\$?=l] 
then 

echo Y'Listener already running on $machine\ !t 
echo exit 0 
exit 0 

fi 

if [ -f Sappdir/tlisten. Sappname. Smachine ] 
then 

. Sappdir/tlisten. Sappname. Smachine 

ps -eF '%u %p %a' | awk *\$3 ~ Y'tlistenY' && \$0 ~ 

Y'SnlsaddrY' {exit I} 1 

if [ \$? = 1 ] 
then 

echo Y'Listener started on SmachineY' 
echo exit 0 

else 

echo \ H Listener starting failed on Smachine !! !\" 
echo exit 1 

fi 

else # create the script file & exec it 

echo \"$tuxdir/bin/tlisten -d Sbridge -1 Snlsaddr -u Suid -L StUogY' > 
Sappdir/tlisten. Sappname. Smachine 

chmod ug+x Sappdir/tlisten. Sappname. Smachine 
. Sappdir/tlisten. Sappname. Smachine 

ps -eF ! %u %p %a' | awk \$3 ~ VtlistenV && \$0 ~ Y'SnlsaddrY' {exit 

if[\$?=l] 
then 

echo Y'Listener started on SmachineY' 
echo exit 0 
else 

echo Y'Listener starting failed on Smachine ! ! ! V 
echo exit 1 

fi 

fi" 

#echo "Sprogl" >progl 
if[-z "Suname"] 
then 

print "Host Smachine not found" 
exit 1 
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fi 

rsh "Suname" -1 "SADMIN" "Sprogl " | awk ' 

NR= 1 {line = $0} 

NR> 1 { print line; line = $0 } 
5 END {if(sub(" A exit line)) exit line; print line; exit -1 }' 

boucle_status- expr $boucle_status \| $? ' 
done 

exit $boucle_status 

10 

Pour arreter un module d'ecoute, Padministrateur selectionne a partir 
du menu principal de gestion des modules d'ecoute "Manage the Listener 
Processes", la fonction "Stop Listener Processes" en positionnant son 
curseur sur la pave (12) (Figure 1). La fenetre de la figure 3 apparait. Elle 

15 permet d'indiquer dans un premier pave (31 ). le nom de Papplication, dans 
un second pave (32), le nom de la ou des machines. En cliquant sur le 
bouton "List" (33), une liste des applications enregistrees ou une liste des 
machines concernant chaque application peut etre obtenue selon la position 
de la marque de position clignotante (34). Pour chaque machine de 

20 Papplication, Pordinateur imprime le nom de la machine pour laquelle le 
module d'ecoute est arrete. Cette selection a Pecran grace a I'interface 
graphique lance les pas de programmes "stoplistproc" au cours desquels le 
programme procure a la station sur laquelle la procedure d'arret est lancee, 
des informations par get_tuxval sur Papplication, contenue dans le fichier de 

25 configuration de la machine maTtre (Page 1 1 de PAnnexe 2, Lignes 720 a 
762). 

stoplistproc) 

appname=$ 1 ; shift 
30 list= M $*" 

set_environ 

boucle_jstatus=0 

exit_status=0 

for machine in $list 
35 do 

echo "\n Machine: Smachine \n" 

get_tuxval > "appname.tux" 
. ./appname.tux 
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progl=" 

COLUMNS=200; export COLUMNS 

ps -eF f %u %p %a' | awk \$3 ~ VtlistenV && \$0 ~ Y'SnlsaddrV {print \$2; 
exit 0 } f | read pid 

ift-nVNSpidV] 
then 

kill -9 \$pid > /dev/null 

status=\$? 

if [\$status -eqO] 

then 

echo YTrocess \$pid killed on SroachineV 
echo exit 0 

else 

echo Y'Failed to stop listener on Smachine! ! !\" 
echo exit 1 

fi 

else 

echo \ ,f No Listener running on SmachineV 
echo exit 1 

fi" 

if [-z M $uname M ] 
then 

print "Host Smachine not found" 
exit 1 

fi 

rsh "Suname" 4 "$ ADMIN" "Sprogl" | awk 1 
NR = 1 {line = $0} 
NR > 1 { print line; line = $0 } 

END {if(sub(" A exit line)) exit line; print line; exit -1 }' 
boucle_status="expr $boucle_ status \| $? " 
done 

exit $boucle_status 



Si un processus appele "tlisten" appartenant a I'application courante 
est en fonctionnement sur cette machine, I'ordinateur I'arrete (kill) et imprime 
le message "Process ^'identification du process (P1D ( Process IDentifier)> 
killed on <nom de la machine>" ( sinon il imprime le message "Failed to stop 
listener on <nom de la machine>". 

De plus, ce procede d'assistance a I'administration d'une application 
permet d'afficher des informations concernant un modul d'ecoute. Pour cela 
a partir du menu principal de gestion des modules d'ecoute "Manage the 
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Listener Processes", il suffit a I'administrateur de selectionner la fonction 
"Change/Show Listener Processes Parameters" sur le pave (13) de la 
fenetre presentee en Figure 1. La fenetre de la figure 4 apparait. 
Uadministrateur doit preciser dans le pave (41), le nom de Papplication et 
5 dans le pave (42), un nom de machine. Suite a cette precision, les autres 
paves (43 a 46) de la fenetre font apparaTtre les valeurs des parametres tels 
que : 

- Identification de I'administrateur (UID), 

- I'adresse complete du module d'ecoute composee de I'adresse de 
10 la machine et du numero de port qu'il utilise (NLSADRR), 

- le chemin d'acces au reseau, 

- le chemin d'acces complet au fichier journal du module d'ecoute 
(Listener Logfile Full Path Name, LLFPN), 

Toutes ces informations sont extraites du fichier TUXCONFIG de la 
15 machine maitre. Ces informations ne sont pas modifiables par cette 
commande, a I'exception du LLFPN. L'annexe 2 presente aux lignes 570 a 
579 de la page 9, la partie du programme correspondent a I'execution de la 
commande de modification du LLFPN. 

20 chglisten) 

appname=$l 
machine=$2 
shift 2 

if[$#-gt0] 
25 then 

echo "TLLOG Smachine $1" > $ConfDir/tlistenlog.$appname.$machine 

fi 

exit $? 

30 

Pour pouvoir visualiser les modules d'ecoute actifs de Tapplication, 
Tadministrateur doit s§lectionner la fonction "Show currently running Listener 
Processes" en cliquant sur le pav6 (14) de la fenetre de la Figure 1. 
L'ordinateur affiche la liste des machines de I'application sur lesquelles un 
35 module d'ecoute est actif et Identification du processus PID (Process 
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Identifier) appartenant a la configuration du reseau. L'annexe 2 presente aux 
lignes 764 a 768 de la page 11 et aux lignes 769 a 809 de la page 12, la 
partie de programme correspondant a raffichage de la liste des modules 
d'ecoute actifs, qui utilise la fonction get_tuxval. 



runninglist) 

appname=$l 
boucle_status=0 
set_environ 
10 list_lmids= x get_tuxconfig | \ 

sed -e n sM /g" -e •s/'V/g 1 -e 'sAWVO/ 1 -e "sA*// M | awk • 
BEGIN { network=0 } 
{line = $0} 

NF — 1 { if (network = 1) print $1} 
15 $1 = "NETWORK" { network = 1} 

END {if(sub( ,,A exit ","", line)) exit line; exit -1 }' * 
for machine in $list_lmids 
do 

get_tuxval > "appname.tux" 
20 . ./appname.tux 

progl=" 

TUXDIR=$tuxdir; export TUXDIR 

LIBPATH=$ {LIB PATH) :$tuxdir/lib; export LIBPATH 

ROOTDIR=$tuxdir; export ROOTDIR # V4 
25 APPDIR=$appdir; export APPDIR 

TUXCONFIG=$tuxconfig; export TUXCONFIG 

PATH=${PATH} :\$TUXDIR/bin:\$APPDIR, export PATH 

LANG=$lang; export LANG 

COLUMNS=200; export COLUMNS 
30 ps -eF '%u %p %a' | awk ^$3 ~ Y'tlistenV && \$0 ~ \"$nlsaddr\" {print \$2}' 1 

read pid 

ift-nVVSpidV ] 
then 

echo Y'Listener running on Smachine: pid = \$pid\ M 
35 echo exit 0 

else 

echo Y'No Listener running on SmachineY 1 
echo exit 0 
fi" 

40 if[-z"$uname" ] 

then 

print "Host Smachine not found" 
exit 1 

fi 

45 rsh "Suname" -1 "SADNUN" "Sprogl " | awk ' 
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NR= 1 {line = $0} 

NR > 1 { print line; line = $0} 

END { if (sub( ,,A exit line)) exit line; print line; exit -1} ' 
boucle_status=' expr $boucle_status \| $?" 
done 

exit Sboucle status 



L'administrateur peut aussi verifier le script cTun module d'ecoute. En 
10 selectionnant la fonction "Check consistency of Listener Process scripts with 
Tuxconfig" sur le pave (15) de ia fenetre representee en figure 1, la fenetre 
de la figure 5 apparait. Uadministrateur doit entrer le nom d'une application 
sur le pave (51) et le nom d'une machine donnee sur le pave (52). Une liste 
des applications et des machines est a la disposition de l'administrateur 
15 grace au bouton "List" (53). Le programme compare les informations 
contenues dans le fichier TUXCONFIG de la machine maitre et extraites par 
la fonction "get_tuxval" avec les informations contenues dans le fichier 
"tlisten.(nom de rapplication).(nom de la machine)" situe dans le repertoire 
APPDIR de la machine et donne le resultat de cette comparaison. Uannexe 
20 2 presente aux lignes 580 a 631 de la page 9 et aux lignes 632 a 651 de la 
page 1 0, la partie du programme correspondant a la verification d'un script 
d'un module d'ecoute qui permet de signaler les discordances entres les 
parametres des fichiers en imprimant par exemple pour le pont "BRIDGE 
values mismatch". 

25 

chklistscript) 

appname=$l 
machine=$2 
set_environ 
30 get_tuxval > "appname.tux" 

get_tllog 
. ./appname.tux 
prog= M 

if [ -f $appdir/tlisten.$appname.$machine ] 
35 then 

cat $appdir/ttisten.$appname.$machine 
echo \ M \\nexit 0\ M 
else 



22 



echo V'Wnexit 1\" 
fi" 

if [ -z "Suname" ] 
then 

print "Host Smachine not found" 
exit 1 

fi 

rm -f tf script. Sappname.Saiachine 

rsh "Suname" -1 "$ADMIN" "Sprog" | tee tlscript.Sappname.Smachine > 
[ $? -ne 0 ] && exit 1 

[ -s tlscript.Sappname.Smachine ] && cat tlscript.Sappname.Smachine | 

END{if($2="l")exit-l} ' 
[ $? -eq -1 ] && exit 1 

[ -s tlscript.Sappname.Smachine ] && cat tlscript.Sappname.Smachine | \ 
awk ' 

$1 ~ "tlisten" { 
mismatch = 0 

fexec=sprintfC , %s/bin/tlisten", tuxdir) 
if($l !=fexec) { 

print "tlisten command full pathnames mismatch" 

printf "\tscript:\t%s\n", $1 

printf "\tconfig:\t%s\n", fexec 

mismatch +=1 

} 

for (i=2; i <= NF; i++) { 
if (( Si = "-d") && ($(i+l) != bridge)) { 
print "BRIDGE values mismatch" 
printf "\tscript:\t%s\n",$(i+l) 
printf "\tconfig:\t%s\n" .bridge 
mismatch +=1 

if (( Si = "-1") && ($(i+l) !=nlsaddr)) { 
print "NLSADDR values mismatch" 
printf "XtscriptrWosW.SCi+l) 
printf "\tconfig:\t%s\n", nlsaddr 
mismatch +=1 
} 

if (( Si == n -u") && ($(i+l) != uid)) { 
print "UID values mismatch" 
printf "\tscript:\t%s\n", $(i+l) 
printf "\tconfig:\t%s\n",uid 
mismatch +=1 

} 

if (( Si = "-L") && ($(i+l) !=tUog)) { 
print "LOGFILE values mismatch" 
printf ^tscript:\t%s\n", $(i+l) 
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printf "\tconfig:\t%s\ri , \ tllog 
mismatch +=1 

} 

END { 
if ( mismatch = 0 ) 

printf "Script File is up-to-date for %s\n" .machine 
else 

printf "\nScript File is NOT up-to-date for %s\n",machine 
} ' tllog=$tllog machine=$machine bridge=$bridge \ 
nlsaddr=$nlsaddr uid=$uid tuxdir=$tuxdir 
exit$? 



Un script d'un module d'ecoute peut aussi etre mis a jour par la 
selection de la fonction "Update Listener Process scripts to TUXCONFIG 
Level". Un script d'un module d'ecoute Tuxedo permet de lancer un module 
d'ecoute. II suffit d'integrer un script de ce type pour une machine donnee, 
dans la sequence de lancement pour que le module d'ecoute soit lance 
automatiquement en meme temps que la machine. Dans la fenetre 
represents figure 6, I'administrateur entre sur le pave (61) le nom d'une 
application, et sur le pave (62) le nom d'une ou de plusieurs machines. Le 
programme se procure par I'appel de la sous routine "getjuxval", toutes les 
informations dont il a besoin dans le fichier binaire de configuration extraites 
par la sous routine "get_tuxconfig" et cree un fichier lui correspondant dans 
le repertoire APPDIR sous le nom "tlisten.(nom de rapplication).(nom de la 
machine). Les lignes 810 a 831 de ('annexe 2 page 12 presente la partie du 
programme correspondant a I'execution de la commande de mise a jour d'un 
script d'un module d'ecoute. 



updtlist script) 

appname=$l 
machine=$2 
set_environ 
get_tllog 

get_tuxval > "appname.tux" 

. ./appname.tux 

prog=" 
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echo Y'$tuxdir/bin/tlisten -d Sbridge -1 $nlsaddr -u $uid -L $tllog\" > $app 
dir/tlisten. Sappname. Smachine 

cbmod ug+x Sappdir/tlisten. Sappname. Smachine 
echo exit \$?" 
5 if[-z"$uname"] 
then 

print "Host Smachine not found" 
exit 1 

fi 

10 rsh "Suname" -1 "SADMIN" "Sprog" | awk ' 

NR = 1 {line = $0} 
NR > 1 { print line; line = $0 } 

END {if(sub( ,,A exit line)) exit line; print line; exit -1}' 
exit$? 



D'autres modifications a la portee de 1'homme de metier font 
egalement partie de I'esprit de I'invention. 
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REVENDICATIONS 

1. Procede d'assistance a I'administration d'une application 
distribuee d'un gestionnaire de traitement des transactions, basee sur un 
fichier binaire de configuration (TUXCONFIG) caracterise en ce que ledit 
procede comporte: 

- une etape de decompilation du fichier de configuration actif de la 

machine mattre, 

- une etape de recuperation d' informations dans le fichier de 
configuration decompile de la machine maTtre (Mm), 

- une etape de verification de la consistance de ladite application 
mise en oeuvre sur une machine donnee. 

2. Procede d'assistance a I'administration d'une application 
distribuee d'un gestionnaire de traitement des transactions, selon la 
revendication 1, caracterise en ce que ledit procede permet de gerer au 
moins un module d'ecoute (3) d'une machine quelconque de I'application a 
partir d'une autre machine. 

3. Procede d'assistance a I'administration d'une application 
distribuee d'un gestionnaire de traitement des transactions selon la 
revendication 1, caracterise en ce que les informations concernant ladite 
application distribuee sont directement prelevees dans le fichier de 
configuration actif de la machine maTtre. 

4. Procede d'assistance a I'administration d'une application 
distribuee d'un gestionnaire de traitement des transactions selon la 
revendication 1 , caracterise en ce que I'etape de verification de consistance 
de ladite application consiste en une comparaison entre des informations 
issues du fichier de configuration de la machine maitre et des informations 
issues de ladite application courante mise en oeuvre sur une machine 
donnee. 

5. Procede d'assistance a I'administration d'une application 
distribuee d'un gestionnaire de traitement des transactions s Ion la 
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revendication 2, caracterise en ce que ladite gestion des modules d'ecoute 
permet de lancer et d'arreter au moins un module d'ecoute, d'afficher des 
informations concernant au moins un module d'ecoute, de modifier le journal 
d'au moins un module d'ecoute, de verifier le script d'au moins un module 
5 d'ecoute et de mettre a jour le script d'au moins un module d'ecoute. 

6. Precede d'assistance a I'administration d'une application 
distribuee d'un gestionnaire de traitement des transactions selon la 
revendication 2, caracterise en ce qu'un administrates se trouvant sur une 
machine quelconque du reseau peut lancer ou arreter un module d'ecoute 

10 mis en oeuvre sur une autre machine du reseau. 

7. Precede d'assistance a I'administration d'une application 
distribuee d'un gestionnaire de traitement des transactions selon la 
revendication 2, caracterise en ce que ledit precede permet d'activ r 
plusieurs modules d'ecoute en une seule operation. 

is 8. Precede d'assistance a I'administration d'une application d'un 

moniteur transactionnel basee sur un fichier binaire de configuration selon la 
revendication 2, caracterise en ce qu'une interface graphique facilite la 
gestion des modules d'ecoute. 

9. Precede d'assistance a I'administration d'une application d'un 
20 moniteur transactionnel basee sur un fichier binaire de configuration selon la 

revendication 9, caracterise en ce que ladite interface graphique permet de 
visualiser la structure de ladite application et de selectionner une valeur 
voulue dans une liste de valeurs de la configuration courante. 

10. Precede d'assistance a I'administration d'une application 
25 distribuee d'un gestionnaire de traitement des transactions selon la 

revendication 4, caracterise en ce que lorsque le fichier contenant des 
informations sur ladite application mise en oeuvre sur une machine donnee 
(tlog) est inexistant le precede le genere automatiquement pour pouvoir 
I'utiliser lors du prochain lancement des modules d'ecoute (3). 
30 11. Precede d'assistance a I'administration d'une application 

distribuee d'un gestionnaire de traitement des transactions selon la 
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revendication 6, caracterise en ce lesdites informations affichees concernant 
au moins un module d'ecoute(3) comprennent au moins le nom de ladite 
application, le nom logique de la machine (LMID)sur laquelle ladite 
application est executee, Identification de I'utilisateur (UID) de ladite 
5 application, I'adresse utilisee par le module d'ecoute (NLSADRR), le chemin 
d'acces au reseau de ladite application, le chemin d'acces au fichier journal 
dudit module d'ecoute (LLFPN). 
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Page 1 


i 

2 
3 


« 

t Tuxedo 
t 


configuration UBBCONFIG for the model TEST1 




4 

5 


* RESOURCES 






i 


IPCKEY 


191785 




7 


MASTER 


sitel 




8 


DOMAIN ID 


doml 




9 


MAXACCESSERS 


50 




10 


MAXSERVERS 


50 




11 


MAXSERVICES 


100 




12 


OPTIONS 


LAN 




13 


MODEL 


MP 




14 








15 


•MACHINES 






16 


puce 


LMID= sitel 




17 




TUXDIR= "usr/ tuxedo" 




18 




APPDI R= "/ home / di a / tuxedo M 




19 




TUXCONFIG= ■ /home/dia/ tuxedo/TUXCONFIG" 




20 




- ENVFILE= • / home / dia/ tuxedo / env f i 1 e_puce M 




21 




ULOGPFX* " / home / d i a / tu xedo /ULOG w 




22 








23 


trif ide 


LMID=site2 




24 




TUXDIR= "usr/ tuxedo M 




25 




APPDI R= " / home / di a / tmp N 




26 




TUXCONFIG= " /home/dia/ tmp/TUXCONFIG" 




27 




ENVFILE— " / home /dia/ tmp / env f i 1 e_.tr i f i de " 




28 




ULOG P FX = " / home / die / tmp /ULOG M 




29 








30 


zio 


LMID=site3 




31 


TUXDIRs M usr / tuxedo- 




32 




APPDIR= " /home/dia / tuxedo" 




33 




TUXCONFIG= M /home/dia/ tuxedo/TUXCONFIG- 




34 




ENVF ILE= " / home / d i a / tuxe do / env f i 1 e_z i g " 




35 




ULOGPFX= " /home/dia / tuxedo /ULOG" 




36 








37 


orage 


LMID=site4 




38 


TUXDI R= ■ u sr / tuxedo n 




39 




AP PDI R= " /home/dia / tuxedo M 




40 




TUXCONFIG-- /home/ dia/ tuxedo/ TUXCONFIG" 




41 




ENVFILE^ " / home/dia / tuxedo/ envf ile_orage M 




42 




ULOG PFX= " /home / d i a / tuxedo / ULOG " 




43 








44 








45 








46 


•GROUPS 






47 








48 


DEFAULT: 


TMSNAME=TMS TMSC OUNT= 2 




49 


GROUP1 


LMID=sitel 




50 




GRPNO==l 




51 


GRO0P2 


LMID»site2 




52 




GRPNO=2 




53 


GROUP4 


LMID=site3 




54 




GRPN0=3 




55 


GRO0P3 


LMID=site4 




56 




GRPN0=4 




57 








58 








59 


* SERVERS 






60 


t 






61 


DEFAULT: RESTART=Y MAXGEN=5 REPLYQ-Y CLOPT^-A" 




62 








63 


SRV1 






64 




SRVGRP=GR0UP1 




65 




SRVID=100 




66 




MIN-2 MAX=2 




67 




RQADDR=QSRV1_1 




68 




REPLYQ=Y 




69 




CL0PT="-s SVC1_1 -s SVC1_2 " 




70 


SRV2 






71 




SRVGRP=GROUP2 
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72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 



SRV4 



SRVID=2O0 
MIN=2 MAX=2 
RQADDR=QSRV2_2 
REPLYQ=Y 

CLOPT= "-s SVC2_1 -s SVC2_2 



SRVGRP=GROUP4 
SRVID=300 
MIN=2 MAX-2 
RQADDR=QSRV4_3 
REPLYQ=Y 

CLOPT= a -S SVC4_1 



-s SVC4_2 



SRV3 



* SERVICES 
DEFAULT : 
SVC1__1 
SVC 1.2 
SVC2_1 
SVC2_2 
SVC4_1 
SVC4_2 



SRVGRP=GROUP3 
SRVID=400 
MIN=2 MAX=2 
R0ADDR=QSRV3_4 
REPLYQ=Y 
CLOPT="-s SVC3_1 



LOAD=50 



•NETWORK 
sitel 



site2 

# 

# 



site3 



* 

site4 

i 

# 



port number=6095l (eel7 hexa) 
local address=81b683e0 

NADDR= ,, \\xO0O2eel781b683e000O0OO000OOO0OOO , * 

BRIDGE* - /dev/xti/ tcp" 

port numbers 609 52 (eel 8 hexa) 

NLSADDR= M \\xO0O2eel881b683eOO0OOOO000000O0O0« 



port number=60951 (eel7 hexa) 
local address=81b68387 

NADDR= M \\x0002eel781b683870000000000000000 M 

BRI DGE= • / dev/ xti / tcp " 

port number=60952 (eel8 hexa) 

NLSADDR= M \\x0002eel881b683870000000000000000" 

port number=6095l (eel7 hexa) 
local address=81b683el 

NADDR="\\x00O2eel781b683elO0OOOO0OO0O0O0O0* 

BRIDGE- M /dev/xti/ tcp" 

port nuniber=60952 (eel8 hexa) 

NLSADDR- ,, \\xO0O2eel881b683elO0O00OO0O0OOO0O0 ,, 

port number- 60951 (eel7 hexa) 
local address=81b6838b 

NADDR= ,, \\x0002eel781b6838bOOOOOOOOOOOOOOOO ,, 

BRIDGE* - / dev/xti / tcp " 

port number=60952 (eel 8 hexa) 

NLSADDR="\\xOO02eel881b6838bO00OO0O0O00OO0O0 w 
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1 
2 
3 
4 
5 
6 
7 
6 
9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 

26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 



# @BULL_COPYRIGHT@ 
# 

# HISTORY 

# $Log: smtuxadmin. ksh, v $ 

# Revision 1.7 1996/02/12 



# bci VlSet2C -23.01.96 

# [1996/01/23 14:31:07 



11:40:49 odeadm 
dia] 



# Revision 1.6 1995/12/20 14:26:59 odeadm 

# VI Set2: Still troubles with smtuxadmin . ksh 

# [1995/12/11 11:56:55 odeadm] 
# 

# 07.12.95 VlSet2 first batch of corrections 
[1995/12/07 17:22:57 odeadm] 



*** empty log message 
[1995/11/30 13:48:30 

*** empty log message 
[1995/11/30 13:48:30 



dia] 



dia] 



odeadm 



# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 

# Revision 1.2 1995/07/19 15:18:13 odeadm 



Revision 1.5 1995/10/13 11:52:51 
Servers XMS/Partitioned mach. 
[1995/10/09 12:05:57 dia] 



Revision 1.4 1995/09/15 15:15:06 odeadm 
Corrections MRs BUILD 3 
[1995/09/07 15:45:27 dia] 

Revision 1.3 1995/08/24 13:38:03 odeadm 
Build3 

[1995/08/23 09:04:31 odeadm] 



# Madison build M0. 2 

# [1995/07/10 10:01:58 odeadm] 
# 

# $EndLog$ 
#! /bin/ksh 

ConfDir=$WRAPPING_CONFIGURATION 
Context=smtuxedo . ctx 

Scanconf=$MADISON_VAR/surveyor/scanconf . tux 
V5_to_V4='ROOTDIR=$TUXDIR; export ROOTDIR' 
Setl_to_Set2=' [ -z "$ ADMIN" ] && export ADMIN= M madison" ' 
cmd=$l; shift 



49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 



set_environ ( ) { 

MASTER=" "; APPDIR=" " ; ADMIN=" " 

f ilename=$ConfDir/$appname . tux 
Env^' tuxgetenv -k -v APP_PW $filename « ! 
tuxgetenvp 
i * 

eval M $Env n ; unset APP_PW 

eval "$Setl_to_Set2" 

if [ -n " $MASTER" -a -n n $APPDIR" ] 

then 

Env="$Env 

$PW 

$Setl_to_Set2 
$V5_to_V4 ,,, 

LD_LIBRARY_PATH=$LIBPATH; export LD_LIBRARY_PATH; 
cd $APPDIR 

PATH=$ {PATH) : . : $APPDIR: $TUXDIR/bin; export PATH ' 
return 0 

fi 

exit 1 

) 

remote_cmd ( ) { 

prog= M $Env 
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72 $cmd"* 

73 status=$? 

74 sleep 1 

75 echo "\nexit $ status" 
76 

77 #print -r "$prog" > prog 

78 rsh "$MASTER" -1 "$ADMIN" "$prog" 1 awk ' 

79 NR —— 1 {line = $0} 

80 NR > 1 { print line; line - $0) 

81 END {if (sub(" A exit ","", line)) exit line; exit -1 } 

82 } 
83 

84 

85 get_tuxconf ig 0 { 

8 6 if [ -s tuxconf . trap . $ appname ] 

87 then 

8 8 cat tuxconf . tmp . $ appname 

89 else 

90 rm -f tuxconf .tmp. * 

91 prog="$Env" ' 

92 $TUXDIR/bin/tmunloadcf 

93 echo "\nexit $?" 
94 

95 #print -r "$prog" > prog 

96 rsh "$MASTER" -1 "$ ADMIN" "$prog" | tee tuxconf . tmp .$ appname 

97 fi 

98 get_tlistenlog 

99 } 
100 

101 get tlistenlogO { 

102 1 1 1 o gf name= $ C onf Di r/tlistenlog.$ appname . $ma chine 

103 if [ -s $tllogfname ] 

104 then 

105 cat Stllogfname 

106 else # default value „ efn^fn amo 

107 echo "TLLOG $machine $MADI SON_TMP/tlis ten. $ appname . $ma chine . log I tee $tllogfname 

108 fi 

109 echo "\nexit $?" 

110 ) 
111 

112 get_tuxval() { 

113 get tuxconfig I \ , . 

114 sed~-e "s/=/ /g" -e 's/V/g 1 -e 's/WW/O/g' I awk 

115 BEGIN { 

116 tuxconfig_section["*RESOURCES"] = 1 

117 tuxconfig_section["*MACHINES") - 2 

118 tuxconfig_section["*GROUPS"] - 3 

119 tuxconf ig_section["* SERVERS"] = 4 

120 tuxconf ig_section["*SERVICES" J = 5 
12 tuxconf ig_section["*ROUTING"] - 6 
197 fiiYconfia secti on f " * NETWORK" ] = 7 



122 tuxconfig_section["*NETWORK"] = 

123 } 

124 NF == 1 { 

125 if ( $1 in tuxconf ig_sect ion ) { 
12 6 section = tuxconf ig_sect ion [$1] 

127 next 

128 ) 

129 } 

130 section ==2 && $2 == "LMID" { # MACHINES section 

131 if ( $3 — machine) { 

132 printf "uname=%s\n" , $1 

133 mach_found=l 

134 ) 

135 else { # reset mach_found for furtheur machines 

136 mach_f ound = 0 

137 ) 

138 next 

139 } 

140 section 2 && $1=="APPDIR" && mach_f ound==l { 

141 printf "appdir^sW, $2 

142 appdir = $2 
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143 next 

144 } 

145 section == 2 && $l=="TUXCONFIG" && mach_f ound == 1 { 
14 6 printf "tuxconf ig=%s\n" , $2 

147 next 

148 ) 

149 section == 2 && $ 1=="TUXDIR" && mach_f ound==l { 

150 printf "tuxdir=%s\n" , $2 

151 next 

152 } 

153 section 2 && $l=="ROOTDIR M && mach_f ound==l { # for V4 

154 printf "tuxdir=%s\n" , $2 

155 next 

156 } 

157 section == 2 && $l=="ULOGPFX" && mach_f ound=l { 

158 ulogpf x=l; printf "ulogpf x=%s\n" , $2 

159 next 

160 } 

161 section 7 && NF =«= 1 { 

162 if ( $1 == machine ) 

163 {mach_f ound « 1) 

164 else { # reset mach_found for other machines 

mach_found = 0 

if 

167 next 

168 } 

169 section == 7 && $ 1 —= " NL S ADDR " && mach_f ound==l { 

170 printf "nlsaddr=%s\n" , $2 

171 next 

172 } 

173 section — 1 && $1 « "UID" {printf "uid«%s\n M , $2 ;next } 

174 section == 7 && $1=="BRIDGE" && itiach_f ound==l { 

175 printf "bridge=%s\n" , $2 } 

176 END { # not defined ulogpf x 

177 if { ulogpfx 0 ) { 

178 printf "ulogpf x=%s/ULOG\n" , appdir } 

179 ) 1 machine=$machlne appname=$appname 

180 lang='sed -e "s/=/ /g" -e "s/'//g" -e n s/;/ /" $ConfDir/$appname . tux I awk ■ 

181 $1 == "LANG" {printf "lang= M , $2}' * 

182 } 
183 

184 get_tllog{) { 

185 tllogfname="$ConfDir/tlistenlog. $appname. $machine" 

186 if [ -f $tllogfname ] 

187 then . _ , , 

188 tllog=*cat $ tllogf name I awk '$1 == "TLLOG" && $2 machine { print $3 } machine=$m 

•achine * 
else 

190 1 1 1 o g= " $MAD I S ON_TMP / 1 1 i s t enl o g . $ appname . $machine " 

191 echo "TLLOG $machine $tllog" > $tllogfname 

192 fi 

193 } 
194 
195 

196 case $cmd in 

197 appli) 

198 Is -1 $ConfDir 2> /dev/null | awk ' 

199 sub(".tux$", "", $NF) {print $NF} ' 
200 

201 isexist) 

202 if t -f $ConfDir/$l.tux ] 

203 then 

204 echo "Yes" . 

205 else 

206 echo "No" 

207 fi 
208 

209 setparam) 

210 [ ! -d $ConfDir ] && mkdir -p $ConfDir 

211 if { -n "$2" ] 

212 then 
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213 filename=$ConfDir/$2 .tux 

214 while [ $# -gt 0 ] 
715 ^° 

2 16 echo "$1=\"$2\"; export $1" 

217 shift 2 

218 done > $filename 

219 fi 
220 

221 discover) 

222 [ "2 "$1" 1 && exit 1 

223 filename=$ConfDir/$l . tux; shift 

224 if [ -f $filename ] 
o y c then 

226 # sed -e 's/r/See/g' -e 's/#.*//' -e ■ s/ *; */ ,, /g' $filename/ I 

227 sed -e 's/#.*//' -e 's/ *; */ M /g' -e 's/i/t'r/g 1 $filename/ 
1 awk ' 

228 BEGIN { field = "#promptW:promptP:promptPO: prompts :promptA:pr 
omptM:promptC:promptR:promptF"; value=" ::::::::" ) 

229 /W { 

230 for (i«l; i<= NF; i++) { 

231 if(sub("=$", $i)) { 

232 separator = " : " 

233 field - field separator $i 

234 value - value separator $ (i+1) 

235 ) 

236 ) 

237 } 

238 END { 

239 print field; print value 

240 )' FS='"' 

241 else 

242 print ' #\n' 

243 fi 
244 

245 delappname) 

246 if [ -n "$2" ] 

247 then 

24 8 f i lename=$Conf Di r / § 2 . tux 



249 if [ -f $filename ] && grep -q "$1= [ ' \"] *$2" Sfilename 

250 then 

251 rm -f $filename $ {filename} p 

252 else 

253 echo 'The file does not exist' 

254 echo ' or' 
255 



echo 'The file is not an environment file' 



256 exit 1 

257 fi 

258 fi 
259 

260 select) 

261 if [ -n "$2" ] 
2 62 then 

263 echo M $l='$2'; export $1" > "$Context" 

264 fi 
265 

266 deselect) 

2 67 rm -f "$Context" 

268 

2 69 selected) 

270 APPNAME=" " 

271 [ -f $Context ] && . . /$Context 

272 echo "$1$APPNAME" . 
273 

274 isselected) 

275 rm -f tuxconf . tmp . * 

276 [ -f $Context ] && fgrep -q "APPNAME= n $Context && shift 

277 echo $1 
278 

279 loadcf) 

280 appname=$l 
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2 81 boucle_status=0 

282 cmd«"\$TUXDIR/bin/tmloadcf -y $2 $3" 

283 set — environ 

284 echo " — 1 — Loading Configuration Binary File " 

285 remote^ cmd 

286 status=$? 

287 if t $ status -ne 0 ] 

288 then 

289 exit $status 

290 else 

291 # maj fichier $Scanconf . tux machines 

292 prog="$Env" 1 

293 $TUXDIR/bin/tmunloadcf 

294 echo "\nexit $?" 
295 

296 #print -r "$prog" > prog 

297 rsh "$MASTER" -1 " $ ADMIN" "$prog" > tuxconf . tmp. $appname 

298 list_lmids=*cat tuxconf . tmp. $appname | sed -e "s/=/ /g" -e * s/"//g' -e "s/\*// 
" i awk • 

299 {line = $0} 

300 $2 — "LMID" && machine == 1 {lmids = lmids $3 " "; next] 

301 $1 == "GROUPS" && $2 == { machines ; next) 
3J^ $1 == "MACHINES" && $2 == "" { machine = 1; next},, 

END {if (subC^exit ","", line)) { 

304 print lmids 

305 exit line) 

306 exit -1 } • % 

307 for machine in $list_lmids 

308 do 

309 echo " Updating $Scanconf on $ma chine \n" 

310 get_tuxval > "appname. tux" 

311 . . /appname. tux 

312 log_j?refix=* echo $ulogpfx I sed -e 's./. . g' I awk 1 

313 {print $NF) ' * 

314 log__dir= * echo $ulogpfx I sed -e *s./. . g 1 I awk 1 

315 (for (i=l; i< NF; i++) { 

316 tempo = tempo "/" $i )) 

317 END { print tempo}'" 

318 #Build the 3 lines of $Scanconf for the application 

319 prog=" 

320 [ -x $MADISON_BIN/security/updscantux ] && 

321 $MADISON_BIN/security/updscantux $appname $log_dir $logj>refix 

322 echo \"\\nexit \$?\" M 

323 rsh "$uname" -1 madison "$prog" | awk ' 

324 NR «== 1 {line = $0} 

325 NR > 1 { print line; line » $0} 
END {if (sub("~exit ","", line)) exit line; exit -1 }' 

boucle_status=* expr $boucle_status + $? * 

328 done 

329 fi 

330 exit $boucle status 

331 ;; " 

332 apppwd) 

333 f ilename=$Conf Dir/$1 . tuxp 

334 echo "Enter Application Password: \c" 

335 OLDCONFIG=* stty -g* 

336 stty -echo 

337 read APP_PW 

338 echo "\nRe-enter Application Password: \c" 

339 read APP_PW_1 

340 stty $OLDCONFIG 

341 if [ "$APP_PW" != "$APP_PW_1" ] 

342 then 

343 echo "\n\nPas sword mismatch!" 

34 4 echo "Enter any character to exit and retry" 

345 read 

346 else 

347 # PWencode n APP_PW=*\"$APP_PW\" ; export APP_PW" > $filename 

348 # APP_PW=*echo $APP_PW | sed -e "s/ ' / ' \ " ' V * /g M 4 

349 # PWencode "APP_PW= ' $APP_PW ; export APP_PW" > $filename 

350 tuxgetenv -s > $filename « ! 
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351 tuxgetenvp 

352 $APP_PW 

353 ! 

354 fi 
355 

35 6 chksyntx) 

357 appname= $ 1 

358 cmd="\$TUXDIR/bin/tmloadcf -n $2" 

359 set_environ 

360 r emot e_cmd 

361 exit $? 

362 ;; 

363 displpc) 

364 appname=$ 1 

365 cmd="\$TUXDIR/bin/tmloadcf -c $2" 

366 set_environ 

367 remote^cmd 

368 exit $? 
369 

370 ma chine_ne twork) 

371 appname=$l 

372 set_environ 

373 get tuxconf ig I \ , , 

374 sed"-e "s/=/ /g" -e 's/"//g' -e 's/\\//' -e "s/W/" I awk 

375 BEGIN { network=0 } 

376 {line = $0} ■ . , 

377 NF -= 1 { if (network — 1) print $1} 

378 $1 == "NETWORK" { network = 1} 

379 END {if (sub ("-exit line)) exit line; exit -1 }' 

380 exit $? 
381 

382 

383 machine_ma chine s ) 

384 appname=$l 

385 set_environ 

386 get tuxconfig I \ , , 

387 sed~~-e "s/=/ /g" -e 's/V/g* -e 's/W//' -e "s/W/" I awk 

388 BEGIN { machine=0 } 

389 {line ~ $0) 

390 $2 == " LMID" ( if (machine == 1) print $3) 

391 $1 == " GROUPS" { if( $2 == "" ) machine«0} 

392 $1 == "MACHINES" { if ( $2 == ) machine = 1) 

393 END {if (sub (""exit ","", line)) exit line; exit -1 )' 

394 exit $? 
395 

396 group) 

3 97 appname=$l 

3 98 s e t_envi r on 

399 get tuxconfig I \ 

400 sed~-e "s/=/ /g" -e 's/V/g' -e 's/W//' -e "s/W/" I awk 

4 01 BEGIN { group=0 } 
402 {line = $0) 

4 03 $1 == "SERVERS" { group«0 ) 

404 $1 — "GROUPS" { if ($2 == "") group=l} 

405 $2 == "LMID" && $4 == "GRPNO" { if (group) print $1) 

406 END {if (sub (""exit line)) exit line; exit -1 }' 
4 07 exit $? 

408 

4 09 svrname) 

410 appname=$ 1 

411 set_environ 

412 get tuxconfig I \ #v t tn 

413 sed~-e "s/=/ /g M -e 's/V/g 1 -e 's/W// 1 -e "s/W/" I awk 

414 BEGIN { group«=server=nb_of_distinct — svr_nam -0 ) 

415 {line « $0) 

416 $1 « "TMSNAME" { if ( group == 1) { 

417 trouve = 0 

418 if (nb_of_distinct__svr_name ==0) { 

419 nb_ of_distinct_svr_nam =1 

420 svr_names [nb_of_distinct_svr_name] = $2 

421 print $2 
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422 } «lse { 

423 for ( j=l; j<= nb_of_distinct_svr_name; { 

424 if ( $2 == svr_names[j] ) { 

425 trouve=l 

426 ) 

427 } 

428 if (trouve ==0) { 

429 nb_of_distinct_svr_name +«* 1 

430 svr_names [nb_of_distinct_svr_name] = $2 

431 print $2 

432 } 

433 } 

434 ) 

435 ) 

436 $1 == "SERVERS" { if ($2 == "") { 

437 server=l 

438 group=0 } 

439 ) 

4 40 $1 — "SERVICES" { if ($2== w ") server=0) 

441 $1 == "GROUPS" { if ($2 = "") group=l) 

442 $2 "SRVGRP" { 

443 if {(server == 1) && { $4 == "SRVID")) { 
4 trouve = 0 

4 if ( nb_of _di s tinct_svr_name == 0) { 

44 6 nb_of _di s tinct_svr_name = 1 

4 47 svr_names [nb_of_distinct_svr — naiDe] = $1 . 

448 print $1 

449 } else { 

45 0 for(j=l; j<= nb_of_distinct_svr_name; j+4) { 

451 if ( $1 « svr_names[j] ) { 

452 trouve=l 

453 } 

454 } 

455 if (trouve == 0) { 

456 nb_of _di s t inct_s vr_nairte += 1 

457 svr_names [nb_of_distinct_svr_ name] = $1 

458 print $1 

459 } 

460 } 

461 ) 

462 } 

463 END {if (sub( f,A exit line)) exit line; exit -1 }' 

464 exit $? 
465 

4 66 svrseq) 
4 67 appnarae=$l 
set_environ 
get_tuxconf ig I \ 

470 sed -e "s/=/ /g" -e 's/V/g' -e 's/\\//' -e "s/W/" I awk ' 

471 BEGIN { server-0; nb_of_ distinct_svr_seq=0 ) 

472 {line = $0} 

4 73 $1 == "SEQUENCE" && server == 1 { 

474 trouve = 0 

475 if (nb_of_distinct_svr_ seq ==0) { 

476 nb_of__distinct_svr_seq=l 

477 svr_seqs [nb_of_distinct_svr_seq] = $2 

478 print $2 

479 } else { 

480 for (j=l; j<= nb_ of_distinct_ svr^seq; j++) { 

481 if ( $2 svr_seqs[j] ) { 

482 trouve=l 

483 ) 

484 ) 

485 if (trouve 0) { 

48 6 nb_of_distinct_svr_seq += 1 

487 svr_seqs [nb_of_distinct_svr_seq] = $2 

488 print $2 

489 ) 

490 } 

491 ) 

492 $1 == "SERVERS" { if ($2 == "") server=l) 



ANNEXE 2 



Feuilie avanf rectiflc 

Page 8 



$1 == "SERVICES" { if ($2 == "") server=0) 
END {if (sub(""exit line)) exit line; exit -1 )' 



493 
494 

495 exit $? 
496 

497 svrld) 

4 98 appnaiue = $ 1 

499 set_environ 

is; ref-r»^/ 9 /i- N -e ..,-//»• '.m//- -. »./w/- ■ «* 

502 BEGIN { server-0; nb_of_distinct_svr_ld=0 ) 

503 {line - $0} 

504 $2 == "SRVGRP" && $4 == "SRVID" && . server == 1 { 

505 trouve =* 0 

506 i f (nb_of_distinct_svr__Id == 0) { 

507 nb_o f _di s t i n c t_svr_I d= 1 

508 S vr_Ids[nb_of_distinct_svr_Id] = $5 

509 print $5 

510 ) else { t t 

511 for j<= nb_ofj±Lstinct_svr_Id; }++)' { 

512 if { $5 -= svr_Ids[j] ) { 



513 trouve=l 

514 > 

516 if (trouve ==* 0) { 

5 17 nb__of_distinct_svr_Id += 1 

518 svr_Ids[nb_of_distinct_svr_Id] = $5 

519 print $5 

520 ) 

521 ) 



$1 == "SERVERS" { if ($2 == ) server=l} 
$1 == "SERVICES" { if ($2 == server=0} 
END {if <sub("~exit line)) exit line; exit -1 )' 



522 ) 
523 
524 
525 

526 exit $? 

527 

5 28 discover__conf ) 

529 machine=$2 

530 appname=$l 

531 s e t _envi r on 

532 get tuxconfig I \ t „ ni . /n . , 

533 sed"-e -a/-/ /g" -e 's/V/g' -e 's/WW/0/' -e "s/W/" I awk 

534 BEGIN {field - "#" } 

535 {line = $0) 

536 $1 == "UID" { 

537 field = field separator $1 

538 value - value separator $2 

539 separator = ":" 

540 ) 

541 $1 == M GID" { 

542 field - field separator $1 

543 value = value separator $2 

544 separator = " : " 
545 
546 
547 
548 
549 
550 
551 



$1 == "BRIDGE" && network «== 1 && ma ch_ found == 1 { 
field = field separator $1 
value = value separator $2 



$1 == "NLSADDR" && network ===== 1 && mach_found == 1 { 

552 field = field separator $1 

553 value = value separator $2 

554 network = 0 

555 mach^found » 0 

556 ) 

557. $1 == "TLLOG" && $2 == machine { 

558 field = field separator $1 

559 value = valu separator $3 

560 ) 
561 

562 $1 == machine {mach_f ound = 1) 

563 $1 == "NETWORK" { network = 1) 
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5 64 END { 

565 print field; print value 

566 if (sub ("^ xit ","", line)) exit line; exit -1 

567 ) ' "machine=$machine" 

568 exit $? 
569 

570 chglisten) 

571 appname=$ 1 

572 machine=$2 

573 shift 2 

574 if [ $# -gt 0 ] 

575 then 

576 echo "TLLOG $machine $1" > $ConfDir/tlistenlog. $appname . $ma chine 

577 fi 

578 exit $? 
579 

580 chklistscript) 

581 appname =$ 1 

582 machine=$2 

583 set_environ 

584 get_tuxval > "appname . tux" 

585 get_tllog 
5|^^ . . /appname. tux 
5^P prog=" 

588 if t -f $appdir/tlisten. $ appname. $machine ] 

589 then 

590 cat $ appdir/tli st en. $ appname. $ ma chine 

591 echo \"\\nexit*0\" 

592 else 

593 echo \"\\nexit 1\" 

594 fi" 

595 if [ -z "$uname" ] 

596 then 

597 print "Host $machine not found" 

598 exit 1 

599 fi 

600 rm -f tlscript .$ appname . $ma chine 

601 rsh "$uname" -1 M $ ADMIN" "$prog" | tee tlscript .$ appname . $ma chine > / 
dev/null 

602 I $? -ne 0 ] && exit 1 

603 [ -s tlscript. $ appname. $machine ] && cat tlscript .$ appname . $ma chine I 
awk ■ 

604 END { if ( $2 == "1" ) exit -1) ' 

605 t $? -eq -1 ] && exit 1 

606 [ -s tlscript. $ appname .$ ma chine 3 cat tlscript .$ appname . $machine I 
\ 

awk 1 
$1 ~ "tlisten" { 

609 mismatch - 0 

610 f exec=sprintf ("%s/bin/tlisten" , tuxdir) 

611 if ($1 != fexec) { 

612 print "tlisten command full pathnames mismatch" 

613 printf "\tscript : \t%s\n" , $1 

614 printf "\tconf ig: \t%s\n" , fexec 

615 mismatch +=1 

616 } 

617 for (i=2; i <= NF; i++) { 

618 if (( $i == M -d") && ($(i+l) != bridge)) { 

619 print "BRIDGE values mismatch" 

620 printf "\tscript : \t%s\n" , $ (i+1) 

621 printf "\tconfig: \t%s\n" , bridge 

622 mismatch +=1 

623 } . 

624 if ( ( $i == "-1") && <$(i+l) !=nlsaddr)) { 

625 print "NLSADDR values mismatch" 

626 printf "\tscript : \t%s\n" , $ (i+1) 

627 printf "\tconf ig: \t%s\n" , nlsaddr 

628 mismatch +=1 

629 ) 

630 if ( ( $i -= "-u") && ($(i+l) uid) ) { 

631 print "UID values mismatch" 
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632 printf "\tscript:\t%s\n", $ (i+1) 

63 3 printf "\tconf ig: \t%s\n" , uid 

634 mismatch +=1 

He ±f ] (( $i == && ($(i+D !=tllog)) { 

6 37 print "LOGFILE values mismatch" 

63 8 printf "\tscript : \t%s\n'\ $(i+l) 

639 printf "\tconf ig : \t%s\n" , tllog 

640 mismatch +=1 

641 ) 

642 }} 

643 END { 

64 4 if ( mismatch -= 0 ) 

6 45 printf "Script File is up-to-date for %s\n" , machine 

646 else - 

647 printf "\nScript File is NOT up-to-date for %s\n , machine 

6 48 } * tllog=$ tllog ma chine=$ma chine bridge=$bridge \ 

649 nlsaddr=$nlsaddr uid=$uid tuxdi r=$ tuxdi r 

650 exit $? 
651 

652 startlistproc) 

653 appname=$l; shift 

654 list="$*" 

655 s e t _envi r on 

65 6 boucle_status=0 

657 exit_status=0 

658 for machine in $list 
65 9 do 

660 echo "\n Machine: $ ma chine \n 

661 get_tuxval > " appname . tux " 

662 get_tllog 

663 . ./appname. tux 

664 progl=" 

665 TUXDI R— $ tuxdi r ; export TUXDIR 

666 R0OTDIR=$tuxdir; export ROOTDIR # V4 

667 APPDIR=$appdir; export APPDIR 

668 TUXCONFIG=$tuxconfig; export TUXCONFIG 

669 PATH=${PATH} :\$TUXDIR/bin:\$APPDIR; export PATH 

670 LANG=$lang; export LANG 

671 LIBPATH=$ {LIBPATH} : $ tuxdi r/ lib; export LIBPATH 

672 COLUMNS=2 00; export COLUMNS 

673 ps -eF '%u %p %a' I awk ' \$3 - \"tlisten\" && \$0 - \"$nlsaddr\" { 
exit 1) ' 

674 if t \$? - 1 ] 

675 then 

676 echo VListener already running on $machine\" 

677 echo exit 0 

678 exit 0 
79 fi 

680 if [ -f $appdir/tlisten.$appname. $machine 3 

681 then 

682 - $ appdir/tli st en. $ appname. $ ma chine 

683 ps -eF '%u %p %a' I awk ' \$3 ~ V'tlistenV \$0 - V'$nls 
addrV {exit 1} ' 

684 if [ \$? = 1 3 

685 then 

686 echo \"Listener started on $machine\" 

687 echo exit 0 

688 else 

689 echo \"Listener starting failed on $machine ! ! ! \" 

690 echo exit 1 

691 fi 

692 else # create the script file & exec it 

693 echo \"$tuxdir/bin/tlisten -d $bridge -1 $nlsaddr -u $uid -L 
$tllog\" > $appdir/tlisten.$appname-$machine 

694 chrood ug+x $ appdir/tl is ten. $ appname. $ ma chine 

695 . $appdir/tlisten. $ appname . $ma chine 

696 ps -eF «%u %p %a' I awk *\$3 ~ V'tlistenV' && \$0 ~ \"$nlsadd 
r\" {exit 1) • 

697 if [ \$? = 1 ] 

698 then 
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699 echo \" Listener start d on $machine\" 

700 echo xit 0 

701 else 

702 echo \"Listener starting failed on $machine !!!\" 

703 echo exit 1 

704 fi 

705 fi" 

706 #echo "$progl" > progl 

707 if [ -z "$uname" ] 

708 then 

709 print "Host $ma chine not found" 

710 exit 1 

711 fi 

712 rsh "$unctfne" -1 "$ ADMIN" "$progl" I awk ■ 

713 . NR >= 1 {line = $0} 

714 NR > 1 { print line; line « $0 ) 

715 END {if (sub ("^exit n , nn , line)) exit line; print line; exit -1)' 

716 boucle_status=* expr $boucle_status \1 $? 

717 ' done 

718 exit $boucle_status 

719 ;; 

720 stoplistproc) 

72^ appname-$l; shift 

7^ft list="$*" 

s'et_environ 

724 boucle_status=0 

725 : exit_status=0 

726 for machine in $list 

727 do 

728 echo "\n Machine: $ ma chine \n" 

729 get_tuxval > "appname. tux" 

730 . ./ appname . tux 

731 progl=" 

732 COLUMNS=200; export COLUMNS 

733 ps -eF *%u %p %a* I awk '\$3 - \"tlisten\" && \$0 - \"$nlsaddr\" {print \$ 
2; exit 0 ) 1 i read pid 

734 if [ -n \"\$pid\" ] 

735 then 

736 kill -9 \$pid > /dev/null 

737 ' . status=\$? 

738 if [ \$status -eq 0 ] 

739 . » then 

. 740 echo V'Process \$pid killed on $machine\" 

741 echo exit 0 

742 ' " , else 

743 echo V'Failed to stop listener on $ma chine !!! \" 

echo exit 1 

~W ; / fi . 

74 6 else 

747 echo \"No Listener running on $machine\" 

74 8 echo exit 1 

74 9 fi" 

750 if [ -z "$uname" ] 

751 . . . then 

752 print "Host ^machine not found" 

753 . exit 1 

754 fi 

'755 ■ ■■ rsh "$uname" -1 "$ ADMIN" "$progl" | awk 1 

. 75 6 - NR == 1 {line = $0) 

757 NR > 1 { print line; line = $0 } 

758 . END {if (subC^exit line)) exit line; print line; exit -1)' 

75 9 boucle_status= % expr $boucle_status \| $? 
760 done 

7 61 exit $boucle_status 

762 

763 

764 runninglist) 

765 appname =$ 1 

766 boucle_status=0 
7 67 set^environ 

768 list_lmids=* get__tuxconf ig I \ 
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769 sed -e "s/=/ /g" -e 's/"//g' -e 's/WW/O/' -e "s/W/" I awk ' 

770 BEGIN { network=0 ) 

771 {line = $0} 

772 NF == 1 { if (network — 1) print $1} 

773 $1 == "NETWORK" { network =1} 

774 END {if (sub{"~exit line)) exit line; exit -1 }' 

775 for machine in $list_lmids 

776 do 

777 get_tuxval > "appname . tux" 

778 . . /appname, tux 

779 progl=" 

780 TUXDIR=$tuxdir; export TUXDIR 

781 LIBPATH=$ {LIBPATH) :$tuxdir/lib; export LIBPATH 

782 ROOTDIR=$tuxdir; export ROOTDIR # V4 

783 APPDIR=$appdir; export APPDIR 

784 TUXCONFIG=$tuxconf ig; export TUXCONFIG 

785 PATH=$ {PATH) : \$TUXDIR/bin: \$ APPDIR; export PATH 

786 LANG=$lang; export IANG 

787 COLUMNS=200; export COLUMNS 

788 ps -eF 1 %u %p %a« I awk *\$3 ~ \"tlisten\" && \$0 ~ \"$nlsaddr\" {print 
\$2) 1 I read pid 

789 if I -n V\$pid\" ] 

7 90 then t , 

791 echo \"Listener running on $machme: pid = \spia\ 

792 echo exit 0 

793 else 

794 echo \"No Listener running on $ma chine \" 

795 echo exit 0 

796 fi" * . 

797 if [ -z "$uname" ] 

798 then 

799 print "Host $machine not found" 

800 exit 1 

801 fi 

802 rsh "$uname" -1 " $ADMIN" "$progl" I awk ' 

803 NR 1 {line = $0) 

804 NR > 1 { print line; line =• $0) 

805 END { if <sub("~exit "", line)) exit line; print line; exit -1) 

806 boucle_status=*expr $boucle_status \1 $?* 

807 done 

808 exit $boucle_status 
809 

810 updtlistscript ) 

811 appname =$ 1 

812 machine=$2 

813 set_environ 

814 get_tllog 

815 get_tuxval > " appname . tux" 

816 . . /appname. tux 

817 xj r o c f 1 ** 

818 echo \"$tuxdir/bin/tlisten -d $bridge -1 $nlsaddr -u $uid -L $tllog\" > $app 
dir /tli st en. $ appname. $ma chine 

819 chmod ug+x $ appdir/ tli s ten. $ appname . $ma chine 

820 echo exit \$?" 

821 if { -z "$uname M ] 

822 then 

823 print "Host $machine not found" 

824 exit 1 

825 fi 

82 6 rsh "$unamev -1 "$ ADMIN" "$prog" I awk 1 

827 NR == 1 {line = $0} 

828 NR > 1 { print line; line = $0 } 

829 END {if (sub("~exit 'V ,n , line)) exit line; print line; exit -1} 

830 exit $? 

831 ;; 

832 tuxBootEnt) 

833 appname=$l; shift 

834 cmd="\$TUXDIR/bin/tmboot -y $@" 

835 set_environ 

836 renrote_cmd 

837 exit $? 
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838 

839 tuxShutEnt) 

840 appname=$l; shift 

841 cmd="\$TUXDIR/bin/tmshutdown -y" 

842 s e t_envi r on 

843 remote_cmd 

844 exit $? 
845 

84 6 tuxBoo tAl IMach ) 

847 appname=$l ; shift 

848 ond="\$TUXDIR/bin/tmboot -y -A $@" 

849 set_environ 

850 r emot e__cmd 

851 exit $? 
852 

853 tuxShutAllMach) 

854 appname= $ 1 ; shi f t 

855 cmd= ,r \$TUXDIR/bin/tirishutdown -y -A $@ f 

856 set_environ 

857 remote_cmd 

858 exit $? 
859 

8 6^ tux Shut) 



8^B appname= $ 1 ; shi f t 



q^T cmd="\$TUXDIR/bin/tmshutdown -y $@" 

863 set_environ 

8 64 remote_cmd 

865 exit $? 

866 ;; 

8 67 tuxShutAdiriMast) 

8 68 appname«$l; shift 

869 cmd« M \$TUXDIR/bin/tmshutdown -y -M $@ w 

870 set_environ 
870 remote_cmd 
872 exit $? 

873 

874 tuxShutSvrSect) 

875 appname=$l; shift 

876 cmd="\$TUXDIR/bin/tmshutdovm -y -S $@ w 

877 set_environ 

878 remote_cmd 

879 exit $? 

880 ;; 

881 tuxBootAdiriMast) 

882 appname=$l; shift 

883 cmd="\$TUXDIR/bin/tmboot -y -M $@" 

»set_environ 
remot e_cmd 

886 exit $? 
887 

888 tuxBoot) 

889 appname=$l; shift 

890 cmd= ,, \$TUXDIR/bin/tmboot -y $@" 

891 set_environ 

892 r emot e_cmd 

893 exit $? 
894 

895 tuxShutdown) 

896 appname= $ 2 

897 cmd*"\$TUXDIR/bin/tmshutdown -y $1" 

898 set_environ 

899 remot e_cmd 

900 exit $? 
901 

902 tuxBootSvrSct) 

903 appname= $ 1 ; shi f t 

904 cmd= ,f \$TUXDIR/bin/tmboot -y -S $@" 

905 s e t _envi r on 

906 remot e_cmd 

907 exit $? 
908 
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909 tuxBootBBL) 

910 #echo $* 

911 appname= $ 1 ; shi f t 

912 cmd="\$TuXDIR/bin/tmboot -y $@" 

913 s e t _ envi r on 

914 remote^cmd 

915 exit $? 
916 

917 tuxShowBooted) 

918 appname=$l; shift 

919 cmd= M (echo psr; echo quit) | \$TUXDIR/bin/tmadmin" 

920 set_environ 

921 remote_cmd 

922 exit $? 
923 

924 tuxminlPC) 

925 appname=$l; shift 

926 cmd="\$TUXDIR/bin/tmboot -y -c $@" 

927 s e t_envi r on 

928 remo t e_cmd 

929 exit $? 
930 

931 tuxShutPart) 

932 exit_status=0 

933 appname=$l; 

934 machine-$2; shift 

935 set^environ 

936 get tuxconfig I \ 

937 sed"-e "s/=/ /g" -e •s/'V/g' -e 's/\\//' -e "s/\*// M I awk . 1 

938 $1 == "APPDIR" && mach_section -= 1 && mach_f ound == 1 { 

939 print "APPDIR " $2 > "appname . tux" 

940 mach_s ect ion .= 0 

941 mach_found - 0 

942 } 

943 $1 == "TUXCONFIG" && mach_section==l && mach_f ound==l { 

944 print "TUXCONFIG " $2 > "appname - tux" 

945 } 

946 $1 == "MACHINES" {mach_section = 1} 

947 $2 == "LMID" && mach_section == 1 && $3 == machine { 

94 8 print "MACHINE " $1 > "appname . tux" 

949 mach_f ound = 1 

950 } 

951 $1 == "TUXDIR" && ma ch_s e ct i on= s = 1 && mach_f ound==l { 

952 print "TUXDIR " $2 > "appname . tux" 

953 ) 

954 ' "machine=$machine" "appname=$ appname" 

955 if [ $? != 0 ] 

95 6 then 

957 exit 1 

958 fi 

959 appdir=*awk '$1 == "APPDIR" {print $2} 1 appname. tux' 

960 tuxconfig= % awk '$1 == "TUXCONFIG" {print $2}' appname. tux* 

961 uname= > awk '$1 == "MACHINE" {print $2}' appname. tux* 

962 rootdir= % awk '$1 =« "TUXDIR" (print $2}' appname. tux' 

963 lang=*sed -e *s/=/ /g' -e 's/;/ /g' $ConfDir/$ appname . tux I 

964 awk '$1 == "LANG" {print $2)'* 

965 progl= n TUXDIR=$rootdir; export TUXDIR 

966 APPDIR=$appdir; export APPDIR 

967 LIBPATH=$ {LIBPATH) : $ root dir /lib; export LIB PATH 

968 TUXCONFIG=$ tuxconfig; export TUXCONFIG 

969 IANG=$lang; export LANG 

970 PATH=$ { PATH) : \$TUXDIR/bin: \$APPDIR; export PATH 

971 $TUXDIR/bin/.tmshutdown -y -P $@ 

972 echo \$? > /tmp/rem$ appname . $ma chine . tux" 

973 if [ -z "$uname" ] 

974 then 

975 print "Host $machine not found" 

976 exit 1 

977 fi 

978 rsh $uname -1 "$ADMIN" "$progl" 

979 rsh status= , echo $? v 
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980 
981 
982 
983 

984 

985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 

a_ 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

]4R 

1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 



if [ "$rsh_status" -eq "0" ] 

then j. 
status=*rsh $uname -1 "$ADMIN" "cat /tmp/rem$appnaitie .$ ma chine, tux" 
rsh $ MASTER -1 "$ADMIN" "rm /tmp/rem$appname . $machine . tux" 2> /dev/nul 

rsh $uname -1 " $ ADMIN" "rm /tmp/rem$appname . $ma chine . tux" 2> /dev/nul 



fi 



] 



-ne "0" ] 



if [ "$status" -ne 
then 

exit_status=*expr $exit_status + 1 % 

fi 

if [ "$exit_status" -ne "0" -o "$rsh_status' 
then 
exit 1 

fi 

i i 

loadfshm) 

appname=$l; machine=$2; shift 2 
set_environ 

get_tuxval > "appname . tux" 

. . /appname. tux 

prog=" 

TUXDIR=$tuxdir ; export TUXDIR 
R0OTDIR=$tuxdir; export ROOTDIR 

LIBPATH=$ {LIBPATH) : $tuxdir/lib; export LIB PATH 
LANG=$lang; export LANG 
$tuxdir/bin/loadfiles $@ 
echo \"\nexit \$?\"" 
if [ -z ^uname" ] 
then 

print "Host $machine not found" 
exit 1 

fi 

rsh "$uname" -1 "$ ADMIN" "$prog" I awk 1 
NR =— 1 {line = $0} 
NR > 1 { print. line; line = $0 } 

END {if (sub (""exit tt , n ", line)) exit line; print line; exit -1) 

; ; 

Unloadcf ) 

appname=$l 

set_environ 

cmd="\$TUXDIR/bin/tmunloadcf " 
if [ $# -eq 2 3 
then 
filename=$2 

remote_cmd > "$filename" 
else 

remote_cmd 

fi 

exit $? 
; ; 
*) 

echo "Command $1 does not exist" 
exit 1 
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- MAXSERVICES qui definit le nombre maximum de services 
pouvant etre rattache a I'application ; 

- OPTIONS qui permet de preciser si I'application a lieu sur un 

reseau local ; 

5 - MODEL qui permet de preciser si I'application est distribute ou si 

elle ne Test pas. 

La section machines contient des informations sur chaque machine 
(puce, trifide, zig, orage) du reseau. Ces informations sont constitutes par 
10 les parametres suivants : 

- LMID (Logital Machine ID) qui definit le nom logique de la machine 
c'est-a-dire le nom utilise en interne par "application, a !a place du nom 
reseau; 

- TUXDIR qui specifie le chemin d'acces au repertoire d' installation 
15 du logiciel 'Tuxedo" ; 

- APPDIR qui specifie le chemin d'acces aux serveurs applicatifs, 
c'est-a-dire le chemin menant aux programmes de I'application (par exemple 
les programmes concernant I'application 'TUXEDO") ; 

- TUXCONFIG qui specifie le chemin d'acces absolu au fichier 
20 binaire de configuration TUXCONFIG, celui-ci contenant des informations 

sur I'application ; 

- ENVFILE qui specifie le chemin d'acces au fichier contenant les 
variables d'environnement pour les serveurs et pour les clients d'une 
machine donnee; 

25 - ULOGPFX qui specifie le chemin d'acces au fichier "ULOG" qui 

contient des informations sur I'historique de I'application. 

La section groupe est la section dans laquelle chaque machine est 
attribute a un groupe. Dans I'exemple de I'annexe 1, il existe quatre 
groupes. Un group st un ensembl d serveurs assurant des s rvic s 
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Tuxedo configuration UBBCONFIG for the model TEST1 



S 
9 
1C 
11 
12 
i. i 
14 
i -. 

16 
17 
18 
19 
20 
21 

23 
24 
25 
26 
>1 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 

3£ 
40 
41 
42 
43 



** RESOURCES 

I PC KEY 

MASTER 

DOMAINID 

MAXACCESSERS 

MAX SERVERS 

MAXSERVICES 

OPTIONS 

MODEL 

* MACHINES 
puce 



trif ide 



doml 



:ig 



orage 



50 



191785 
sitel 



50 
100 
LAN 
MP 



LMID=sitel 

TUXDIR="usr/ tuxedo" 

APPDIR» "/home/dia/ tuxedo" 

TUXCONFIG= - /home/dia/ tuxedo /TUXCONFIG ■ 

ENVFILE* " /home/dia/ tuxedo/env f i le_puce" 

ULOGPFX«" /home/dia/ tuxedo/ULOG" 

LMID=site2 

TUXDIRs "usr/ tuxedo" 

APPDIR» "/home/dia/ trap" 

TUXCONFIG= " /home/dia/ tmp/TUXCONFIG" 

ENVFILE="/home/dia/tmp/envf ile_trif ide" 

ULOGPFX= M /home/dia/ tmp/ULOG* 

LMID*site3 

TUXDIRe "usr/ tuxedo" 

APPDIR= "/home/dia/ tuxedo" 

TUXCONFIGa-Zhome/dia/tuxedo/TUXCONFIG" 

ENVFILE* » /home/dia/ tuxedo/envfi le_zig " 

ULOGPFX*" /home/dia/ tuxedo/ULOG" 

LMID=site4 

TUXDIR= "usr/ tuxedo" 

APPDIR= ■ /home/dia/ tuxedo" 

TUXCONFIG* - /home/dia/ tuxedo/TUXCONFIG 

ENVFILE= M /home/dia/ tuxedo/envfi le.orage" 

ULOGPFX = M / home /dia/tuxedo/ ULOG " 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
5S 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 



•GROUPS 

DEFAULT: 
GROUP1 

GROUP2 

GROUP4 

GROUP3 



■SERVERS 



TMSNAME»TMS 

LMIDssitel 

GRPNO-1 

LMID=site2 

GRPNO=2 

LMID=site3 

GRPNOO 

LMID»site4 

GRPNO*4 



TMSC0UNT=2 



DEFAULT: RESTART«Y MAXGEN= 5 REPLYQ*Y CL0PT= n - 
SRV1 

SRVGRP=GR0UP1 
SRVID=100 
MIN-2 MAX =2 
RQADDR»QSRV1__1 
REPLYQaY 

CLOPT= a -s SVC 1_1 -s SVC1_2 



SRV2 



SRVGRP=GR0UP2 
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72 

73 

74 

75 

76 

77 

7& 

79 

80 

81 

82 

85 

84 

85 

86 

97 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

115 

12C 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 



SRV3 



SRVID=200 

MI No 2 MAX=2 

RQADDR= QSRV2_2 

RBPLYQ=Y 

CL0PT= "-s SVC2_1 

SRVGRP=GR0UP4 
SRVID«300 
MIN»2 MAX ^2 
RQADDR=QSRV4_3 
REPLYQ=Y 

CL0PT="-s SVC4_1 



-s SVC2_2 -- 



-s SVC4_2 — 



'SERVICES 

DEFAULT: 

SVC1_1 

SVC1_2 

5VC2_1 

SVC2_2 

SVC4_1 

SVC4.2 

SVC3_1 



SRVGRP=GR0UP3 
SRVID=400 
MIN=2 MAX=2 
RQADDR=QSRV3_4 
REPLYQ=Y 
CLOPT="-s SVC3_1 



LOAD=50 



•NETWORK 
si eel 
It 
# 



ft 

sice2 
# 



site3 
3 



site4 

8 

I 



port number=60951 (eel7 hexa) 
local address=81b683e0 
NADDR="\\x0002eel781b683eO0O00000000000000» 
BRIDGE* Vdev/xti/tcp" 
port number* 60952 (eel8 hexa) 

NLSADDR="Ux0002eel881b683eOO 000000000000000" 



port number=60951 (eel7 hexa) 
local address=8lb68387 

NADDR= u \\x0002eel78lb683870000000000000000" 

BRIDGE="/dev/xti/tcp" 

port nuinber= 60952 (eel 8 hexa) 

NLSADDR="\\x0OO2eel88lb68387O0OOO00OOOO0OOOO" 



port number=60951 (eel7 hexa) 
local address=8lb683el 

NADDR*"\\x0O02eel781b683el0O00OOOO0OO000O0" 

BRIDGE^/dev/xti/tcp" 

port number= 609 52 (eel8 hexa) 

NLSADDR= M \\xOOO2eel88lb683elO0OO0O00O0O0OOO0 w 



port numbers 60951 (eol7 hexa) 
local address=81b6838b 

NADDR="\\x0O02eel781b6838b00O0O0OO00OO00OO- 

BRIDGE= M /dev/xti/tcp B 

port number^ 60952 (eel8 hexa) 

NLSADDR="\\x00O2eel881b6838bO0O00O0O0000O000« 



*=su»M§ : recti nee 
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1 

2 
3 


# @BULL_COPYRIGHT<3 
# 




4 


# HISTORY 




5 


# $Log: smtuxadmin.ksh, v $ 




6 


# Revision 1.7 1996/02/12 11:40:49 


odeadm 


7 


# bci VlSet2C 23.01.96 




8 


# [1996/01/23 14:31:07 dia] 




9 

10 


# 

# Revision 1.6 1995/12/20 14:26:59 


odeadm 


11 


# VI Set2 : Still troubles with smtuxadmin. ksh 


12 


# [1995/12/11 11:56:55 odeadm] 




13 


# 




14 


# 07.12.95 VlSet2 first batch of 


corrections 


15 


# [1993/12/0/ 1/:ZZZ3/ oaeaomj 




16 


# 




17 


# *** empty log message *** 




18 


# [1995/11/30 13:48:30 dia] 




19 


# 




20 


# *** empty log message *** 




21 


# [1995/11/30 13:48:30 dia] 




22 


# 




23 


# Revision 1.5 1995/10/13 11:52:51 


odeadm 




# Servers TMS/Partitioned mach. 




# [1995/10/09 12:05:57 dia] 




2 b 


# 




27 


# Revision 1.4 1995/09/15 15:15:06 


odeadm 


28 


# Corrections MRs BUILD 3 




29 


# [1995/09/07 15:45:27 dia] 




30 


# 




31 


# Revision 1.3 1995/08/24 13:38:03 


odeadm 


32 


# Build3 




33 


# [1995/08/23 09:04:31 odeadm] 




34 


# 




35 


# Revision 1.2 1995/07/19 15:18:13 


odeadm 


36 


# Madison build M0. 2 




37 


# [1995/07/10 10:01:58 odeadm] 




38 


# 




39 


# $EndLog$ 




40 


#! /bin/ksh 




41 


Conf Dir=$WRAPPING_CONFIGURATION 




42 


Context=smtuxedo. ctx 




A 1 


Scanconf=$MADISON VAR/ surveyor /scanconf . tux 


A A 


V5 to V4='R00TDIR=$TUXDIR; export ROOTDIR' 

Setl to Set2='[ -z "$ ADMIN" ] && export ADMIN=*"madi, 


45 


46 
W 


cmd=$l; shift 

set environ () { 

MASTER*"",* APPDIR=""; ADMIN=" " 




50 


f ilename=$Conf Dir/$appname . tux 


5 l 


Env=*tuxgetenv -k -v APP PW $filename « ! 


c o 
oZ 


tuxgetenvp 
i * 




eval "$Env"; unset APP PW 




c c 


eval "$Setl to Set2" 




o o 


if [ -n "$MASTER" -a -n "$APPDIR" ] 


o / 


then 




58 


Env="$Env 




59 


$PW 




60 


$Setl to Set2 




61 


$V5 to V4" ' 




oZ 


LD LIBRARY PATH=$ LI BPATH ; export LD 


LIBRARY_PATH; 




Cd $APPDIR 




64 


PATH=$ {PATH} : . : $APPDIR: $TUXDIR/bin; 


export PATH 1 


65 


return 0 




66 


fi 




67 


exit 1 




68 


} 




69 






70 


remote_cmd ( ) { 




71 


prog="$Env 
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72 $cmd M ' 

73 status»$? 

74 sleep 1 

75 echo "\nexit $status" 
76 

77 #print -r "$prog" > prog 

78 rsh "$MASTER" -1 " $ ADMIN" "$prog" | awk ' 
.79 NR ==> 1 {line = $0} 

80 NR > 1 { print line; line « §0} 

81 END {if <sub( ,,A exit n ," n , line)) exit line; exit -1 }' 

82 ) 
83 

84 

85 get_tuxconf ig{) { 

8 6 if [ -s tuxconf . trap . $ appname ] 

87 then 

88 cat tuxconf . trap .$ appname 

89 else 

90 rm -f tuxconf . tmp - * 

91 prog="$Env"' 

92 $TUXDIR/bin/tmunloadcf 

93 echo "\nexit $?" 
94 

95 #print -r "$prog" > prog 

96 rsh "$MASTER" -1 "$ ADMIN" "$prog ,f | tee tuxconf . tmp. $ appname 

97 fi 

98 get_tlistenlog 

99 } 
100 

101 get_tlistenlog() { 

102 tllogfname«$ConfDir/tlistenlog.$appname. $machine 

103 if [ -s $tllogfname ] 

104 then 

105 cat $tllogfname 

106 else # default value 

107 echo "TLLOG $machine $MADISON_TMP/ tli at en. $ appname . $machine . log" I tee $tllogfname 

108 fi 

109 echo "\nexit $?" 

110 ) 
111 

112 get_tuxval() { 

113 get_ tuxconfig I \ 

114 sed -e "s/=/ /g" -e 's/V/g' -e 's/WW/O/g' | awk • 

115 BEGIN { 

116 tuxconfig_3ection["*RES0URCES") « 1 

117 tuxconfig section [ ,f *MACHINES w ] = 2 

118 tuxconfig~section["*GROUPS ,f ] « 3 

119 tuxconfig_section["*SERVERS"] =4 

120 tuxconfig section ["*SERVICES"] « 5 
12 tuxconfig^sectiont l, *ROOTING"] « 6 

122 tuxconfig_section["*NETWORK"] « 7 

123 ) 

124 NF == 1 { 

125 if ( $1 in tuxconf ig — section ) { 

12 6 section = tuxconf ig_section[$l] 

127 next 

128 } 

129 } 

130 section == 2 && $2 — "LMID" { # MACHINES section 

131 if { $3 — machine) { 

132 printf n uname=%s\n" , $1 

133 ma ch_f ound«=« 1 

134 } 

135 else { # reset mach_ found for furtheur machines 

13 6 mach_found = 0 

137 } 

138 next 

139 ) 

140 section — 2 && Jl^^'APPDIR" && ma ch_f ound== 1 { 

141 printf "appdir*=%s\n" , $2 

142 appdir * $2 
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143 next 

144 } 

145 section «» 2 && $l== M TUXCONFIG" && mach_f ound == 1 { 

146 printf "tuxconf ig«%s\n" , $2 

147 next 

148 } 

149 section ~ 2 && $1=="TUXDIR" && mach_f ound==»l { 

150 printf "tuxdir»%s\n" , $2 

151 next 

152 } 

153 section — 2 && $l«*="ROOTDIR w && mach_f ound==l { # for V4 

154 printf "tuxdir=%s\n" , $2 

155 next 

156 } 

157 section == 2 && $l=="ULOGPFX" && mach_f ound==l { 

158 ulogpfx«l; printf "ulogpf x=%s\n" , $2 

159 next 

160 ) 

161 section == 7 && NF « 1 { 

162 if ( $1 == machine ) 

163 {mach_f ound » 1} 

164 else { # reset mach_found for other machines 

165 mach found = 0 

• ) " 
next 

168 } 

169 section == 7 && $1~ W NLSADDR" && inach_f ound==l { 

170 printf "nlsaddr=%s\n", $2 

171 next 

172 } 

173 section — 1 && $1 ~ "UID" {printf w uid=%3\n ,, / $2 ;next } 

174 section 7 && $1~"BRIDGE W && mach_found— 1 { 

175 printf "bridge=%s\n", $2 ) 

176 END { # not defined ulogpfx 

177 if ( ulogpfx — 0 ) { 

178 printf "ulogpf x=%s/XJLOG\n", appdir } 

179 ) 1 machine=$machine appname=$appname 

180 lang=*sed -e "s/-/ /g w -e "s/V/g" .-e w s/// /" $ConfDir/$appname- tux | awk 1 

181 $1 — "LANG" {printf "lang»", $2)' * 

182 } 
183 

184 get_tllog() { 

185 til ogf name - " $ C onf D i r / 1 1 i s t enl og . $ appname . $machine " 
18 6 if [ -f $tllogfname ] 

187 then 

188 tllog=*cat $tllogf name | awk '$1 — "TLLOG" && $2 — machine { print $3 }■ machine=$m 

#achine * 
else 
tllog="$MADISON_TMP/tlistenlog. $appname. $machine" 

191 echo "TLLOG $machine $tllog" > $tllogfname 

192 fi 

193 } 
194 
195 

196 case $cmd in 

197 appli) 

198 Is -1 $ConfDir 2> /dev/null I awk 1 

199 sub (".tux?", "", $NF) {print $NF) ' 
200 

201 isexist) 

202 if [ -f $ConfDir/$l.tux ] 

203 then 

204 echo "Yes" 

205 else 

206 echo "No" 

207 fi 
208 

209 setparam) 

210 [ ! -d $ConfDir ] && mkdir -p $ConfDir 

211 if [ -n "$2" ] 

212 then 



Feuille rc 



2 13 f ilename=$Conf Dir/$2 . tux 

214 while [ $# -gt 0 ] 

215 do 

216 echo "$1»\"$2\"; export $1" 

217 shift 2 

218 done > $ filename 

219 fi 

,2 20 

2 21 discover) 

222 [ -z "$1" ] && exit 1 

2 23 filename=$ConfDir/$l. tux; shift 

224 if [ -f $filename ] 

2 25 then 

226 # sed -e 's/:/@Q<§/g' -e 's/#.*//' -e 's/ *; */Vg' ^filename/ | 
awk • 

227 sed -e 's/*.*//' -e 1 s/ *; */"/g' -e »s/:/#!:/g' $filename/ 
I awk 1 

228 BEGIN { field » "ipromptW: prompt PipromptPO: prompt S:promptA:pr 
omptM: prompt C : promptR : promptF" ; value- " ) 

229 /W { 

230 for (i»l; i<» NF; i++) { 

231 if (subP-S", " w , $i)) { 

232 separator - 

233 field = field separator $i 

234 value = value separator $(i+l) 

235 } 

236 1 

237 } 

238 END { 

239 print field; print value 

240 } ■ FS= ,W 1 

241 else 

2 42 print '#\n' 

243 fi 

244 

2 45 del appname ) 

246 if [ -n "$2" ] 

247 then 

2 4 8 f ilename=$Conf Dir/$2 . tux 

249 if [ -f ^filename ] && grep -q [ • \"] *$2" $filename 

250 then 

251 rm -f $ filename $ {filename }p 

252 else 

253 echo 'The file does not exist' 

254 echo 1 or' 

255 echo 'The file is not an environment file' 
25 6 exit 1 

257 fi 

25 8 fi 

259 

260 select) 

261 if [ -n "$2 W ] 

262 then 

263 echo "$1='$2'; export $1" > "$Context M 

264 fi 
265 

266 deselect) 

2 67 rm -f "$Context" 

268 

2 69 selected) 

270 APPNAME* 3 " *' 

271 [ -f $context ] && . ./$Context 

272 echo "$1$APPNAME" 

273 

274 isselected) 

275 rm -f tuxconf . trap.* 

27 6 [ -f ^context ] &6 fgrep -q "APPNAME* 3 " $Context && shift 

277 echo $1 

278 

279 loadcf) 

280 appname=$ 1 
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281 boucle_s t atus=0 

282 cmd="\$TUXDIR/bin/tmloadcf -y $2 $3" 
28 3 set_environ 

28 4 echo " Loading Configuration Binary Fil " 

285 r emo t e — cmd 

28 6 status»$? 

287 if [ $status -ne 0 ] 

288 then 

289 exit $status 

290 else 

291 # raaj fichier $Scanconf . tux machines 

292 prog="$Env"' 

293 $TUXDI R/bin/ tmunl oadcf 

294 echo "\nexit $?" 
295 

296 #print -r "$prog" > prog 

297 rsh "$MASTER" -1 " $ ADMIN" "$prog n > tuxconf . tmp • $ appname 

298 list_lmids=*cat tuxconf . tmp. $ appname | sed -e "s/=/ /g" -e 1 s/"//g' -e "s/W/ 
" I awk 1 

299 {line « $0} 

300 $2 — "LMID" && machine ~ 1 {lmids - lmids $3 " "; next) 

301 $1 "GROUPS" && $2 ■» "" { machine=0; next) 

302 $1 -» "MACHINES" && $2 — "" { machine = 1; next) 

•END {if (sub{"*exit ", MM , line)} { 
print lmids 

305 exit line) 

306 exit -1 ) 1 * 

307 for machine in $list_lmids 

308 do 

309 echo " Updating $Scanconf on ^machine — - — \n" 

310 get_ tuxval > "appname - tux" 

311 . . /appname . tux 

312 log_prefix=*echo $ulogpfx I sed -e • s./. .g* I awk • 

313 {print $NF) ■ % 

314 log_dir=*echo $ulogpfx | sed -e ' s./. .g' I awk ' 

315 {for (i«l; i< NF; i++) { 

316 tempo = tempo "/" $i }) 

317 END { print tempo) ■ * 

318 #Build the 3 lines of $Scanconf for the application 

319 prog=" 

320 [ -x $MADISON_BIN/security/updscantux ] && 

321 $MADISON_BIN/security/updscantux $appname $log_ dir $log_prefix 

322 echo \"\\nexit \$?\"" 

323 rsh "$uname" -1 madison "$prog" | awk 1 

324 NR — 1 {line - $0} 

325 NR > 1 { print line; line » $0} 

«END {if (sub("^exit ","", line)) exit line; exit -1 )' 
boucle_status»* expr $boucle_status + $? " 
done 

329 fi 

330 exit $boucle_status 
331 

332 apppwd) 

333 f ilename=$ConfDir/$l.tuxp 

334 echo "Enter Application Password: \c" 

335 OLDCONFIG^* stty -g* 

336 stty -echo 

337 read APP_PW 

338 echo "\nRe-enter Application Password: \c" 

339 read APP_PW_1 

340 stty $OLDCONFIG 

341 if [ "$APP_PW" != "$APP_PW_1" ] 

342 then 

343 echo "\n\nPassword mismatch!" 

34 4 echo "Enter any character to exit and retry" 

345 read 

346 else 

347 # PWencode "APP_PW=\"$APP_PW\"; export APP PW" > $ filename 

348 # APP_PW=*echo $APP_PW I sed -e "s/ ' / '"V • \" ' /g" * 

34 9 # PWencode "APP_PW-' $APP_PW ; xport APP_PW" > $fil name 
350 tuxgetenv -s > $filename « ! 
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351 tuxgetenvp 

352 $APP__PW 

353 ! 

354 fi 

355 

35 6 chksyntx) 

357 appname=$l 

358 cmd="\$TUXDIR/bin/tmloadcf -n $2" 
35 9 set_environ 

360 remote_cmd 

361 exit $? 

362 

363 displpc) 

364 appname«$l 

365 cmd= w \$TUXDIR/bin/tmloadcf -c $2" 

366 s e t_envi r on 

367 remote^ cmd 

368 exit $? 

369 

370 machine_network ) 

371 appname»$l 

372 set_environ 

373 get tuxconfig I \ , t tj 

374 ged"-e "s/-/ /g" -e 's/V/g' -e ■sA\//' -e "sA*//" I awk ' 

375 BEGIN { network«0 } 

376 {line - $0} 

377 NF — 1 { if (network 1) print $1} 

37 8 $1 "NETWORK" { network = 1} 

379 END {if (subC'^exit ","", line)) exit line; exit -1 } 

380 exit $? 
381 

382 

383 machine_machines) 

384 appname=$l 

385 s e t_ envi r on 

38 6 get tuxconfig I \ 

387 sed~-e "s/-/ /g" -e 's/"//g' -e 'sAW -e "sA*//" I awk 

388 BEGIN { machine-0 ) 

389 {line » $0} 

390 $2 — "LMID" { if {machine «» 1) print $3} 

391 $1 ~ "GROUPS" { if ( $2 " "" ) machine-0) 

392 $1 — "MACHINES" { if ( $2 — "" ) machine - 1) 

393 END {if (3ub(" A exit ","", line)) exit line; exit -1 >' 

394 exit $? 
395 

396 group) 

397 appname= $ 1 

3 98 set_environ 

399 get tuxconfig I \ 

400 sed~-e "s/-/ /g" -e 's/V/g' -e 's/\\//' -e "s/\*//" I awk 

4 01 BEGIN { group=0 ) 

402 {line = $0) 

403 $1 — "SERVERS" { group»0 } 

404 $1 — "GROUPS" { if ($2 =* "") group=l) 

4 05 $2 — "LMID" && $4 — "GRPNO" { if (group) print $1) 

406 END {if (sub(" A exit line)) exit line; exit -1 )' 
4 07 exit $? 
408 



Ied"-e «*/»/ /g" -e 's/V/g' -e 's/\\//' -e -s/W/" I 
BEGIN { group=server»nb_of_6Ustinct_svr_name«0 } 



4 09 svrname) 

410 appname=$l 

411 set_environ 

412 get_tuxconf ig I \ 
413 
414 

415 {line = $0) 

416 $1 >» "TMSNAME" { if ( group 1) { 

417 tr uve » 0 

418 if (nb_of_distinct_svr_name «■ 0) { 

419 rib_of _distinct_svr_name==*l 

420 svr_names [nb_of_distinct_svr_name] = $2 

421 print $2 



awk 
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422 } else { 

423 for (j=l; j<» rib_of_distinct_svr_name; j++) { 

424 if ( $2 — svr^names [j] ) { 
4 25 trouve=I~ 

426 } 

427 } 

428 if (trouve «- 0) { 

429 nb_of_distinct_svr_naiae += 1 

4 30 svr_names [nb_of_distinct_svr_name] = $2 

4 31 print $2 

432 } 

433 ) 

434 ) 

435 } 

436 $1 — "SERVERS" { if ($2 — "") { 
4 37 server=l 

4 38 group=0 ) 

439 } 

440 $1 "SERVICES" { if ($2™ n,f ) server=0) 

441 $1 — "GROUPS" {if ($2 «- "") group=l) 

442 $2 «« "SRVGRP" { 

443 if ((server — 1) && { $4 — "SRVID") ) { 
4 44 trouve = 0 

if {nb_of_distinct_svr_naiae ==0) { 
4 4^^ nb_of_distinct~svr_name « 1 

4 47 svr_names [nb_of_d±3tinct_svr_name J = $ 1 

448 print $1 ~ 

449 ) else { 

450 for(j=l; j<= nb_of __di s t inct_s vr_narae ; j++) { 

451 if ( $1 — svr_names[j] ) { 

452 trouve=l 

453 } 

454 ) 

455 if (trouve == 0) ( 

45 6 nb_of _di s tine t_svr_name +» 1 

4 57 svr_names [nb_of_distinct_ syr_name] = $1 

458 print $1 

459 ) 

460 } 

461 } 

462 } 

463 END (if (sub("^exit ", line)) exit line; exit -1 }' 

464 exit $? 
465 

4 66 svrseq) 

4 67 appname= $ 1 

4 1^ set_environ 

4^B get tuxconfig I \ 

4 7(T sed -e "s/=/ /g" -e 's/'V/g' -e 'sAW -e "s/\*/7" I awk ■ 

471 BEGIN { server=0; nl>_of_distinct_svr_seq=0 ) 

472 {line « $0) 

473 $1 ~ "SEQUENCE" && server == 1 { 

474 trouve « 0 

475 if (nb_of_distinct_svr_seq 0) ( 

47 6 nb_of_distinct_svr_seq=>l 

477 svr_seqs [nb_of_distinct_svr_seq] = $2 

478 print $2 ~ 

479 } else { 

480 for (j»l; j<« nb_of_distinct_svr_seq; j++) { 

481 if ( $2 svr_seqs[j] ) { 
4 82 trouve«l 

483 ) 

484 ) 

485 if (trouve — 0) { 

48 6 nb_of — di s t inc t_s vr_s eq += 1 

487 svr_seqs[nb_of_distinct_svr_seq] « $2 

48 8 print $2 ~" 

489 ) 

490 } 

491 } 

492 $1 =« "SERVERS" { if ($2 «« "") serv r=l) 
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493 $1 — "SERVICES" { if ($2 ~ "") server=0) 

494 END {if (sub("~exit ","", line)) xit line; exit -1 }' 
4 95 exit $? 

496 

4 97 svrld) 

498 appname=$l 

499 s e t_envi r on 

500 get tuxconfig | \ 

501 sed -e "s/=/ /g" -e 's/"//g' -e 's/W//' -e "s/W/" I awk • 

502 BEGIN { server=0; nb_ofjiistinct_svr_ld=0 ) 

503 {line = $0) 

504 $2 «~ "SRVGRP" && $4 — "SRVID" && server — 1 { 

505 trouve « 0 

506 if (nb_of_distinct_svr_Id ~ 0) { 

507 nb_of _distinct_svr_Id=l 

508 svr _ Ids[nb_of_distinct_svr_Id] = $5 

509 print $5 

510 } else { 

511 for (j-1; j<= nb_of_distinct_svr_Id; j++) { 

512 if ( $5 — svr_Ids[j) ) { 

513 trouve=l 

514 ) 

515 ) 

516 if {trouve — 0) { 

517 nb_of_distinct_svr_Id += 1 

518 svr_ Ids [nb_of_distinct_svr_Id] = $5 

519 print $5 

520 } 

521 ) 

522 ) 

523 $1 — "SERVERS" { if ($2 — "") server=l} 

524 $1 «~ "SERVICES" { if {$2 — "") server=0) 

525 END {if (sub<"*exit line)) exit line; exit -1 )' 

526 exit $? 
527 

528 discover_conf ) 

52 9 machine«$2 

530 appname= $ 1 

531 s e t_envi r on 

532 get tuxconfig | \ 

533 sed -e "s/«/ /g" -e 's/V/g' -e 's/WW/O/' -e "s/\*//" I awk ' 

534 BEGIN {field - ) 

535 {line - $0) 

536 $1 ~ "UID" { 

537 field - field separator $1 

538 value = value separator $2 

539 separator « ":" 

540 ) 

541 $1 — "GID" { 

5 42 field - field separator $1 

5 43 value = value separator $2 

54 4 separator » ":" 

545 ) 
546 

547 $1 == "BRIDGE" && network =~ 1 && mach_found ==* 1 { 

548 field » field separator $1 

549 value » value separator $2 

550 ) 

551 $1 "NLSADDR" && network 1 && mach_found «= 1 { 

552 field « field separator $1 

553 value « value separator $2 

554 network ~ 0 

555 mach__found =» 0 

556 } 

557 $1 "TLLOG" && $2 «» machine { 

558 field - field separator $1 

559 value - valu separat r $3 

560 ) 
561 

562 $1 ■» machine {mach_f ound » 1) 

5 63 $1 — "NETWORK" { network = 1) 
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5 64 END ( 

5 65 print field; print value 

566 if (sub{'"*exit ","", line)) exit line; exit -1 

5 67 ) 1 "machine«$machine" 

5 68 exit $? 
569 

570 chglisten) 

571 appname«$l 

572 machine=$2 

573 shift 2 

574 if [ $# -gt 0 ] 

575 then 

576 echo "TLLOG $machine $1" > $ConfDir/tlistenlog. $appname. $machine 

577 fi 

578 exit $? 
579 

580 chklistscript) 

581 appname=$ 1 

582 machine=$2 

583 set_environ 

584 get_tuxval > "appname .tux" 

585 get_tllog 

586 . . /appname . tux 

if [ -f $appdir/ tlisten. $appname. $machine ] 

589 then 

590 cat $appdir/tlisten.$appname.$machine 

591 echo \"\\nexit 0\" 

592 else 

593 echo VWnexit 1\" 

594 fi" 

595 if [ -z "$uname" ] 
5 96 then 

5 97 print "Host ^machine not found" 

5 98 exit 1 

5 99 fi 

600 rm -f tl script. $ appname. $machine 

601 rsh "$uname" -1 "$ADMIN" "$prog" | tee tlscript .$ appname. $machine > / 
dev/null 

602 [ $? -ne 0 ] && exit 1 

603 [ -s tlscript. $ appname. $machine ] 6& cat tlscript .$ appname. ^machine | 
awk 1 

604 END { if ( $2 == "1" ) exit -1} ' 

605 [ $? -eq -1 ] && exit 1 

606 [ -s tlscript. $ appname. $machine ] && cat tlscript .$ appname. $machine I 
\ 

607 awk ' 

•$1 - "tlisten" { 
mismatch 0 

610 f exec=sprintf ( "%s/bin/tlisten" , tuxdir) 

611 if ($1 != fexec) { 

612 print "tlisten command full pathnames mismatch" 

613 printf "\tscript: \t%s\n n , $1 

614 printf "\tconf ig: \t%s\n" , fexec 

615 mismatch +=1 

616 } 

617 for (i=2; i <= NF; i++) { 

618 if (( $i == "-d") && ($(i+l) Abridge)) { 

619 print "BRIDGE values mismatch" . 

620 printf "\tscript :\t%s\n", $ (i+1) 

621 printf "\tconfig:\t%s\n", bridge 

622 mismatch +=»1 

623 } 

624 if (( $i — "-1") « ($(i+D !«nlsaddr)> { 

625 print "NLSADDR values mismatch" 

626 printf "\tscript : \t%s\n" , $ <i+l) 

627 printf "\tconf ig: \t%s\n" , nlsaddr 

628 mismatch +»1 

629 ) 

630 if (( $i — "-u") && ($(i+l) != uid)) { 

631 print "UID valu s mismatch" 
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632 printf "\tscript: \t%s\n", $ (i+1) 

633 printf " \tconf ig: \t%3\n n / uid 

63 4 mismatch +»1 

635 ) 

636 if (( $i "-L") && <${i+l) !=tllog)) { 

637 print "LOGFILE values mismatch" 

638 printf "\tscript : \t%s\n M , $ (i+1) 
: 639 printf "\tconf ig: \t%s\n", tllog 

64 0 mismatch +=1 

641 } 

642 }} 
64 3 END { 

64 4 if ( mismatch == 0 ) 

645 printf "Script File is up-to-date for %s\n" / machine 

64 6 else 

647 printf "\nScript File is NOT up-to-date for %s\n" , machine 

64 8 } 1 tllog=$tllog machine* $machine bridge=$bridge \ 

64 9 nlsaddr»$nlsaddr uid=$uid tuxdir«$tuxdir 
650 exit $? 

651 

652 startlistproc) 

653 appname»$ 1 / shi ft 

654 list-"?*" 

655 s e t_envi r on 

65 6 boucle_ status=0 

657 exit_status=0 

658 for machine in $list 
65 9 do 

660 echo "\n Machine: $ ma chine \n" 

661 get_tuxval > " appname . tux" 

662 get_tllog 

663 . ./appname. tux 

664 progl=" 

665 TUXDIR«$tuxdir; export TUXDIR 

666 R0OTDIR=$tuxdir; export ROOTDIR # V4 

667 APPDIR=$appdir; export APPDIR 

668 TUXCONFIG»$tuxconfig; export TUXCONFIG 

669 PATH ss $ (PATH) : \$TUXDIR/bin: \$APPDIR; export PATH 

670 LANG=$lang; export LANG 

671 LIBPATH~$ {LIBPATH} : $tuxdir/lib; export LIBPATH 

672 COLUMNS -2 00; export COLUMNS 

673 ps -eF 1 %u %p %a' I awk 1 \$3 - \ n tlisten\ w &6 \$0 - \"$nlsaddr\" { 
exit 1}' 

674 if [ \$? » 1 ] 

675 then 

67 6 echo \ "Listener already running on $machine\ n 

677 echo exit 0 

678 exit 0 
79 fi 

680 if [ -f $ appdir/t list en. $ appname. $machine ] 

681 then 

682 . $ appdir/tli st en. $ appname. $ma chine 

683 ps -eF ' %u %p %a» 1 awk '\$3 - \"tlisten\" && \$0 ~ \"$nls 
addrV {exit 1} 1 

684 if [ \$? « 1 ] 

685 then 

68 6 echo \ "Listener started on $machine\" 

687 echo exit 0 

688 else 

689 echo \"Listener starting failed on $machine ! ! !\" 

690 echo exit 1 

691 fi 

692 else # create the script file & exec it 

693 echo \"$tuxdir/bin/tlisten -d Sbridge -1 Snlsaddr -u $uid -L 
$tllog\" > $ appdir/t list en. $ appname. $machine 

694 chmod ug+x $appdir/tlisten.$appname.$machine 

695 . $ appdi r / 1 1 i s ten . $ appname . ^machine 

696 ps -eF ' %u %p %a' | awk ' \$3 - \"tlisten\" && \$0 - \"$nlsadd 
r\" {exit 1) 1 

697 if [ \$? o 1 ] 

698 then 
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699 echo \"Listener started on $machin \" 

700 echo exit 0 

701 else 

702 echo \ n Listener starting failed on $machine ! U V 

703 echo exit 1 

704 fi 

705 fi" 

,706 #echo "$progl n > progl 

707 if [ -z "$uname" ] 

708 then 

709 print "Host $machine not found" 

710 exit 1 

711 fi 

712 rsh M $uname" -1 "$ ADMIN" "$progl" I awk ■ 

713 NR ~ 1 {line = $0} 

714 NR > 1 { print line; line » $0 ) 

715 END {if (sub("*exit ","", line)) exit line; print line; exit -1) 

716 boucle_status= % expr $boucle_status \| $? 

717 done 

718 exit $boucle_status 

719 ;; 

720 stoplistproc) 

721 appname=$l; shift 

•list="$*" 
set_ environ 

72 4 boucle_ status=0 

725 exit_status=0 

72 6 for machine in $list 

727 do 

728 echo "\n Machine: $ machine \n" 

729 get_tuxval > "appname, tux" 

730 . . /appname. tux 

731 progl-" 

732 COLUMNS»200; export COLUMNS 

733 p 3 -eF '%u %p %a' I awk '\$3 - \"tlisten\" && \$0 - \"$nlsaddr\" {print \$ 
2; exit 0 ) ' I read pid 

734 if [ -n \"\$pid\" ] 

735 then 

736 kill -9 \$pid > /dev/null 

737 status=\$? 

738 if [ \$status -eq 0 ] 
7 39 then 

740 echo V'Process \$pid killed on $machine\ n 

741 echo exit 0 

742 else 

743 echo \"Failed to stop listener on $machine! ! !\" 
1AA echo exit 1 

m 

nfb else 

747 echo \"No Listener running on $machine\" 

74 8 echo exit 1 

749 fi" 

750 if [ -z "$uname" ] 

751 then 

752 print "Host $machine not found" 

753 exit 1 

754 fi 

755 rsh "$uname" -1 " $ADMIN" "$progl" I awk 1 

75 6 NR — 1 {line » $0) 

757 NR > 1 { print line; line =» $0 ) 

758 END {if (sub("^exit ","", line)) exit line; print line; exit -1} 
75 9 boucle_status«*expr $boucle_status \| $? 

760 done 

7 61 exit $boucle_ status 

762 

763 

764 runninglist) 

765 appname= $ 1 

766 boucle_ s tatus=0 

767 set_environ 

768 list_lmids»*get_tuxconfig I \ 



769 sed -e "s/=/ /g" -e 's/V/g' -e 's/WW/O/' -e "s/\*//" I awk • 

770 BEGIN { network=0 ) 

771 {line = $0) 

772 NF ~ 1 { if (network =» 1) print $1} 

773 $1 «=« "NETWORK" { network «= 1} 

774 END {if (sub(" A exit n , nn , line)) exit line; exit -1 ) 1 * 

775 for machine in $list_lmids 

776 do 

777 get_tuxval > "appname. tux" 

778 . . /appname. tux 

779 progl=" 

780 TUXDIR=$tuxdir; export TUXDIR 

781 LIBPATH=$ {LIBPATH} : $tuxdir/lib; export LIB PATH 

782 ROOTDIR«$tuxdir; export ROOTDIR # V4 
7 83 APPDIR=$appdir; export APPDIR 

7 84 TUXCONFIG»$tuxconfig; export TUXCONFIG 

785 PATH«${PATH> :\$TUXDIR/bin:\$APPDIR; export PATH 

78 6 LANG=$lang; export LANG 

7 87 COLUMNS-200/ export COLUMNS 

788 ps -eF *%u %p %a f I awk 1 \$3 - V'tlistenV && \$0 - \"$nlsaddr\" {print 
\$2} ' | read pid 

789 if [ -n \"\$pid\" ] 
7 90 then 

791 echo V'Listener running on $machine: pid « \$pid\" 

7 92 echo exit 0 

793 else 

7 94 echo \"No Listener running on $machine\ M 

7 95 echo exit 0 

796 fi" 

797 if [ -z "$uname" ] 

798 then 

799 print "Host $machine not found" 

800 exit 1 

801 fi 

802 rsh "$uname" -1 " $ ADMIN" "$progl" | awk 1 

803 NR «» 1 (line - $0) 

804 NR > 1 { print line; line « $0) 

805 END { if (sub(" A exit line)) exit line; print line; exit -1} • 

806 boucle_status~* expr $boucle_status \| $?* 

807 done 

808 exit $boucle w status 
809 

810 updt 1 i s t s cr ipt ) 

811 appname»$ 1 

812 machine»$2 

813 s e t_ envi r on 

814 get_tllog 

815 get_tuxval > "appname. tux" 

816 . ./appname. tux 

817 prog=" 

818 echo \"$tuxdir/bin/tlisten -d Abridge -1 $nlsaddr -u $uid -L $tllog\" > $app 
dir/tlisten. $appname . $machine 

819 chmod ug+x $ appdir/tlist en. $ appname. $ma chine 

820 echo exit \$?" 

821 if [ -z "$uname" ] 

822 then 

823 print "Host $machine not found" 

824 exit 1 

825 fi 

826 rsh "$uname" -1 "$ADMIN n "$prog w | awk ' 

827 NR — 1 {line » $0) 

828 NR > 1 { print line; line = $0 ) 

829 END {if (sub("~exit line)) exit line; print line; exit -1} 1 

830 exit $? 
831 

832 tuxBootEnt) 

833 appnam «$1; shift 

834 cmd»"\$TUXDIR/bin/tmboot -y $Q" 

835 set_envir n 

836 remote_cmd 

837 exit $? 
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838 

839 tuxShutEnt) 

84 0 appname«$l; shift 

841 cmd="\$TUXDIR/bin/tiashutd wn -y" 

84 2 s e t_envi r on 

8 4 3 remote_crad 

844 exit $? 

845 

'846 tuxBootAllMach) 

84 7 appname=>$ 1 ; shift 

848 cmd="\$TUXDIR/bin/tiaboot -y -A $0" 

849 s e t_envi r on 

850 remote_cmd 

851 exit $? 

852 

853 tuxShutAllMach) 

854 appname=$l; shift 

855 cmd=*"\$TUXDIR/bin/tmshutdown -y -A $0" 

85 6 set_environ 

857 remote_cmd 

858 exit $? 
859 

860 tuxShut) 

• appname=$l; shift 
cmd»"\$TXJXDIR/bin/tmshutdown -y $0" 

8 63 set_environ 

8 64 remote_cmd 

865 exit $? 

866 ;; 

8 67 tuxShutAdmMast) 

868 appname=$l; shift 

8 69 cmd="\$TUXDIR/bin/tmshutdown -y -M $0" 

870 s e t_envi r on 

870 remote_cmd 

872 exit $? 

873 

874 tuxShutSvrSect) 

875 appname=$l; shift 

876 cmd="\$TUXDIR/bin/tmshutdown -y -S $0" 

877 set_environ 

878 r emo t e_cmd 

879 exit $? 
880 

881 tuxBootAdmMast) 

882 appname=$l; shift 

883 cmd= n \$TUXDIR/bin/tinboot -y -M $0" 

«4 set — environ 

f remote — cmd 

6 exit $? 
887 

888 tuxBoot) 

889 appname=$l; shift 

890 cmd="\$TUXDIR/bin/tinboot -y $0" 
8 91 set — environ 

892 remote_cmd 

893 exit $? 
894 

8 95 tuxShutdown) 

896 appname=$2 

897 cmd= M \$TUXDIR/bin/tmshutdown -y $1" 

898 set_environ 

899 remot e_cmd 

900 exit $? 
901 

902 tuxBootSvrSct) 

903 appname=$l; shift 

904 cmd- H \$TUXDIR/bin/tanboot -y -S $0" 

905 set_ environ 

906 r emo t e_cmd 

907 exit $? 
908 



909 tuxBootBBL) 

910 #echo $* 

911 appnam »$1; shift 

912 cmd="\$TUXDIR/bin/tmboot -y $6" 

913 set_ environ 

914 r emote_ cmd 

915 exit $? 
916 

517 tuxShowBooted) 

918 appname»$ 1 ; shift 

919 cmd=»" (echo psr; echo quit) 1 \$TUXDIR/bin/tmadmin n 

920 set — environ 

921 r emo t e__ cmd 

922 exit $? 
923 

924 tuxminlPC) 

925 appname= $ 1 ; shi f t 

926 cmd="\$TUXDIR/bin/tmboot -y -c $@" 

927 set_environ 

928 remote_crad 

929 exit $? 
930 

931 tuxShutPart) 

932 exit_status=0 

933 appname =$ 1 ; 

934 machine»$2; shift 

935 set_environ 

936 oet tuxconfig I \ 

937 sed~-e "s/=/ /g" -e 's/"//g' -e 's/W//' -e "s/W/ :! i awk ! 

938 $1 "APPDIR" && machjsection 1 && mach_found «- l { 

939 print "APPDIR " "$2 > "appname. tux" 

940 mach_section ■» 0 

941 mach_f ound - 0 

942 } 

943 $1 «» "TUXCONFIG" && mach_s ec t i on=»l && mach_f ound== 1 { 

944 print "TUXCONFIG " $2 > "appname. tux" 

945 ) 

94 6 $1 — "MACHINES" (mach_section - 1) 

947 $2 «* "LMID" && mach_section «» 1 && $3 -» machine { 

948 print "MACHINE " $1 > "appname. tux" 

949 mach_found — 1 

950 } 

951 $1 == "TUXDIR" && mach_section™l 6& mach_f ound==»l { 

952 print "TUXDIR ""$2 > "appname. tux" 

953 ) 

95 4 • "machine=$machine" "appname=$ appname" 
955 if [ $? 1= 0 ] 

95 6 then 

957 exit 1 

95 8 fi 

95 9 appdir=*awk 1 $1 ~ "APPDIR" (print $2}' appname. tux* 

960 tuxconf ig= * awk 1 $ 1 «« "TUXCONFIG" {print $ 2 } 1 appname . tux * 

961 uname=*awk '$1 == "MACHINE" {print $2}' appname. tux" 

962 rootdir= % awk '$1 ■» "TUXDIR" {print $2}' appname. tux* 

963 lang« % sed -e ' s/=/ /g' -e 's/;/ /g' $ConfDir/$ appname. tux | 

964 awk '$1 — "LANG" (print $2} 1 % 

965 progl="TUXDIR«$rootdir; export TUXDIR 

966 APPDIR=$appdir; export APPDIR 

967 LIBPATH»${LIBPATH} :$rootdir/lib; export LI BPATH 

968 TUXCONFIG«$tuxconfig; export TUXCONFIG 

969 LANG=$lang; export LANG 

970 PATH ss $ {PATH} : \$TUXDIR/bin: \$ APPDIR; export PATH 

971 $TUXDIR/bin/tmshutdown -y -P $Q 

972 echo \$? > / tmp/rem$ appname. $machine. tux" 

973 if [ -z "$uname M ] 

974 then 

975 print "Host $machine not found" 

976 exit 1 

977 fi 

978 rsh $uname -1 "$ ADMIN" "$progl" 

979 rsh status** * echo $?* 
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980 
981 
982 
983 

] 

984 

J 

.985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 

B 

1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 

fn 
26 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 



if [ ,, $r3h_3tatu3 f ' -eq "0" ] 
th n 

status=*rsh $unam -1 "SADMIN" "cat / tmp/rem$ appname. $machine. tux" * 
rsh $ MASTER -1 n $ADMIN n "rm /tmp/rem$ appname . $machine. tux" 2> /dev/nul 

rsh $uname -1 " $ADMIN" "rm / tim?/rem$ appname. $machine .tux" 2> /dev/nul 

fi 

if [ '^status" -ne "0 n ] 
then 

exit_status«*expr $exit_status + 1* 

fi 

if [ n $exit_status" -ne "0 n -o "Srshjstatus" -ne "0" ] 
then 
exit 1 

fi 

/ ; 

loadf shm) 

appname=$l; machine«$2; shift 2 
set_environ 

get_tuxval > "appname. tux" 

. . / appname . tux 

prog=" 

TUXDIR=$tuxdir; export TUXDIR 
ROOTDIR~$tuxdir; export ROOTDIR 
LIBPATH=$ {LIBPATH} : $ tuxdir/lib; export LIBPATH 
LANG=$lang; export LANG 
$tuxdir/bin/loadfiles $0 
echo \"\nexit \$?\ w " 
if [ -z ^unaae 11 ] 
then 

print "Host $machine not found" 
exit 1 

fi 

rsh "$uname" -1 11 $ ADMIN" "$prog" | awk • 
NR =« 1 {line = $0} 
NR > 1 { print line; line » $0 } 

END {if (sub(" A exit ", ttM , line)) exit line; print line/ exit -1} 1 

; ; 

Unloadcf) 
appname =$ 1 
set_environ 

cmd»" \$TUXDIR/bin/tmunloadcf " 
if [ $# -eq 2 ] 
then 
f ilename=$2 

remote_cmd > "$filename" 
else 

remote_cmd 

fi 

exit $? 
; ; 
*) 

echo "Command $1 does not exist" 
exit 1 



esac 
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REVENDICATIONS 

1. Proctdt d'assistance a I'administration d'une application distribute 
d'un gestionnaire de traitement des transactions, baste sur un fichier binaire 
de configuration (TUXCONFIG) caracterise en ce que ledit procede comporte: 

- une etape de decompilation du fichier de configuration actif de la 
machine maTtre, 

- une etape de recuperation d'informations dans le fichier d 
configuration decompile de la machine maTtre (Mm), 

- une etape de verification de la consistance de ladite application mis 
en oeuvre sur une machine donnee. 

2. Procede d'assistance a ['administration d'une application distribute 
d'un gestionnaire de traitement des transactions selon la revendication 1, 
caracterise en ce qu'il comprend une etape de gestion d'au moins un module 
d'ecoute (3) d'une machine quelconque de I'application a partir d'une autre 
machine. 

3. Procede d'assistance a I'administration d'une application distribute 
d'un gestionnaire de traitement des transactions selon la revendication 1, 
caracterise en ce que les informations concernant ladite application distribute 
sont directement prtlevtes dans le fichier de configuration actif de la machine 
maTtre. 

4. Proctdt d'assistance a I'administration d'une application distribute 
d'un gestionnaire de traitement des transactions selon la revendication 1, 
caracttrist en ce que I'etape de vtrification de consistance de ladite 
application consiste en une comparaison entre des informations issues du 
fichier de configuration de la machine maTtre et des informations issues de 
ladite application courante mise en oeuvre sur une machine donnte. 

5. Proctdt d'assistance a I'administration d'une application distribute 
d'un g stionnaire de traitement d s transactions s Ion la revendication 2, 
caracterise en ce que la gestion des modules d'ecoute consiste a lancer et a 
arreter au moins un module d' coute, a afficher des informations concernant au 
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moins un module d"coute, a modifier le journal d'au moins un module d'ecoute, 
a verifier le script d'au moins un modul d'ecoute et a mettre a jour le script 
d'au moins un module d'ecoute. 

6. Procede d'assistance a I'administration d'une application distribuee 
d'un gestionnaire de traitement des transactions selon la revendication 2, 
caracterise en ce qu'il comprend une etape de lancement et d'arret d'un 
module d'ecoute mis en oeuvre sur une premiere machine, cette etape etant 
mise en ceuvre par un administrateur utilisant une deuxieme machine distincte 
de la premiere, appartenant au meme reseau que la premiere machine. 

7. Procede d'assistance a I'administration d'une application distribue 
d'un gestionnaire de traitement des transactions selon la revendication 2, 
caracterise en ce qu'il comprend une etape d'activation simultanee d 
plusieurs modules d'ecoute. 

8. Procede d'assistance a I'administration d'une application d'un 
moniteur transactionnel basee sur un fichier binaire de configuration selon la 
revendication 2, caracterise en ce que les etapes du procede sont mises en 
ceuvre par I'intermediaire d'une interface graphique comprenant au moins une 
icone, au moins un menu, et au moins une boTte de dialogue. 

9. Procede d'assistance a I'administration d'une application d'un 
moniteur transactionnel basee sur un fichier binaire de configuration selon la 
revendication 8, caracterise en ce que les menus de ^interface graphique sont 
structures sous forme d'arborescence et I'actionnement d'un menu provoque 
I'affichage d'une liste de valeurs de la configuration courante, selectionnable 
par I'utilisateur. 

10. Procede d'assistance a I'administration d'une application distribuee 
d'un gestionnaire de traitement des transactions selon la revendication 4, 
caracterise en ce que lorsque le fichier contenant des informations sur ladit 
application mise en oeuvre sur une machine donnee (tlog) est inexistant le 
procede le genere automatiquement pour pouvoir I'utiliser lors du prochain 
lancement des modules d'ecoute (3). 
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11. Proc'd' d'assistance a I'administration d'une application distribu'e 
d'un gestionnaire de traitement des transactions selon la revendication 6, 
caracterise en ce lesdites informations affichees concernant au moins un 
module d'ecoute(3) comprennent au moins le nom de ladite application, le nom 
logique de la machine (LMID)sur laquelle ladite application est executee, 
I'identification de I'utilisateur (UID) de ladite application, I'adresse utilisee par le 
module d'ecoute (NLSADRR), le chemin d'acces au reseau de ladite 
application, le chemin d'acces au fichier journal dudit module d'ecoute 
(LLFPN). 
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obtenu par la s' lection du bouton "Command" (25). L bouton "Reset" (26) 
permet d reinitialiser les valeurs d s paves (21) et (23). Le bouton "Cancel" 
(27) permet d'annuler une valeur introduite sur les paves (21) et (23). Le 
bouton "?" (28) offre une aide en ligne a I'administrateur. 

Pour chaque machine designee dans la liste des machines, 
I'ordinateur se procure des informations sur I'application dans le fichier de 
configuration de la machine mattre et un fichier historique appele fichier 
"tlistenlog . <nom de l'application> . <nom de la machine>" contenant des 
informations sur I'application agissant actuellement sur cette machine. 
L'ordinateur verifie d'abord si le module d'ecoute n'est pas deja demarre sur 
la machine. Si c'est le cas, le message "Listener already running on <nom 
de la machine>" est imprime sur I'ecran. Sinon, si un fichier local existe, 
l'ordinateur I'execute et imprime le message "Listener started on the 
machine", si la commande reussit. Si la commande echoue, I'ordinateur 
imprime le message "Listener starting failed on <nom de la machine>". Si le 
fichier local n'existe pas, I'ordinateur genere un fichier "tlistenlog . <nom de 
l'application> . <nom de la machine>" dans le repertoire APPDIR, I'execute 
et rend compte du resultat comme precedemment Ce fichier contient des 
informations sur I'application courante et sera utilise dans le prochain 
lancement des modules d'ecoute. Ceci correspond aux lignes 652 a 698 de 
la page 36 et aux lignes 699 a 719 de la page 37 de I'annexe 2. 

startlistproc) 
appname=$ 1 ; shift 

list="$*" 

set environ 

b oucle_status=0 

exit_status=0 

for machine in Slist 

do 

echo "\n Machine: $machine \n" 

get tuxval > "appname.tux" 
get_tHog 
. ./appname.tux 
progl=" 

TUXDIR=$tuxdir; export TUXDIR 
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fi 

rsh "Simame" -1 "SADIVHN" "Sprogl" | awk ' 
NR= 1 {line = $0} 
NR> 1 { print line; line = $0 } 

END {i£(sab( ,,A exit line)) exit line; print line; exit -1}' 
boucle_status= , expr $boucle_status \| $? ' 
done 

exit $boucle_status 

Pour arreter un module d'ecoute, I'administrateur selectionne a partir 
du menu principal de gestion des modules d'ecoute "Manage the Listener 
Processes", la fonction "Stop Listener Processes" en positionnant son 
curseur sur la pave (12) (Figure 1). La fenetre de la figure 3 apparaTt. Elle 
permet d'indiquer dans un premier pave (31), le nom de I'application, dans 
un second pave (32), le nom de la ou des machines. En cliquant sur le 
bouton "List" (33), une liste des applications enregistrees ou une liste des 
machines concernant chaque application peut etre obtenue selon la position 
de la marque de position clignotante (34). Pour chaque machine de 
I'application, I'ordinateur imprime le nom de la machine pour laquelle le 
module d'ecoute est arrete. Cette selection a I'ecran grace a I'interface 
graphique lance les pas de programmes "stoplistproc" au cours desquels le 
programme procure a la station sur laquelle la procedure d'arret est lancee, 
des informations par get_tuxval sur I'application, contenue dans le fichier de 
configuration de la machine maTtre (Page 37 de I'Annexe 2, Lignes 720 a 
762). 

stoplistproc) 

appname=$ 1 ; shift 
Hst="$*" 
setenviron 
boucle_status=0 
exit_status=0 
for machine in $Kst 
do 

ech "\n Machine: $machine \n" 

get tuxval > "appname.tux" 
. ./appname.tux 
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Id ntifier) appartenant a la configuration du reseau. L'annexe 2 pres nt aux 
lignes 764 a 768 de la page 37 t aux lignes 769 a 809 de la pag 38, la 
partie de programme correspondant a I'affichage de la liste des modules 
d'ecoute actifs, qui utilise la fonction get_tuxval. 



runninglist) 

appname=$l 

boucle_status=0 

setenviron 

list_lmids=" get tuxconfig | \ 

sed -e m sH /g" -e 's/'V/g* -e 'sAWVO/ 1 -e "sA*//" | awk ' 
BEGIN { network=0 } 
{line = $0} 

NF — 1 { if (network = 1) print $1} 
$ 1 = "NETWORK" { network = 1 } 
END {iflsubC^exit ","", fine)) exit line; exit -1 }' * 
for machine in $list_lmids 
do 

getjtuxval > "appname.tux" 
. ./appname.tux 
progl=" 

TUXDIR=$tuxdir; export TUXDIR 
LroPATH=${LIBPATH}:$tuxdir/iib- export LIBPATH 
ROOTDIR=$tuxdir; export ROOTDIR #V4 
APPDIR=$appdir; export APPDIR 
TUXCONFIG=$tuxconfig; export TUXCONFIG 
PATH=$ {PATH} :\$TUXDIR/bm:\$APPDIR; export PATH 
LANG=$lang; export LANG 
COLUMNS=200; export COLUMNS 

ps -eF '%u %p %a' | awk \$3 ~ \"tlisten\" && \$0 ~ \"$nlsaddr\" {print \$2}' | 

read pid 

if[-n\^$pid\"] 
then 

echo V'Listener running on Smachine: pid = \$pid\" 
echo exit 0 
else 

echo \ ,r No Listener running on $machine\" 
echo exit 0 
fi" 

if[-z"$uname"] 
then 

print "Host Smachine not found" 
exit 1 

fi 

rsh "$uname" -1 "SADMTN" "$progl" | awk ' 
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printf "\tconfig:\t%s\n", tllog 
mismatch +=1 

} 
» 

END { 
if ( mismatch = 0 ) 

printf "Script File is up-to-date for %s\n",machine 

printf "\nScript File is NOT up-to-date for %s\n"^nachine 
} ' tllog=$tllog machine=$machine bridge=$bridge \ 
nlsaddr=$nlsaddr uid=$uid tuxdir=$tuxdir 
exit$? 

79 

Un script d'un module d'ecoute peut aussi etre mis a jour par la 
selection de la fonction "Update Listener Process scripts to TUXCONFIG 
Level". Un script d'un module d'ecoute Tuxedo permet de lancer un module 
d'ecoute. II suffit d'integrer un script de ce type pour une machine donnee, 
dans la sequence de lancement pour que le module d'ecoute soit lance 
automatiquement en meme temps que la machine. Dans la fenetre 
represents figure 6, I'administrateur entre sur le pave (61) le nom d'une 
application, et sur le pave (62) le nom d'une ou de plusieurs machines. Le 
programme se procure par I'appel de la sous routine "getjuxval", toutes les 
informations dont il a besoin dans le fichier binaire de configuration extraites 
par la sous routine "get_tuxconfig" et cree un fichier lui correspondant dans 
le repertoire APPDIR sous le nom "tlisten.(nom de l'application).(nom de la 
machine). Les lignes 810 a 831 de I'annexe 2 page 38 presente la partie du 
programme correspondant a I'execution de la commande de mise a jour d'un 
script d'un module d'ecoute. 

updtlistscript) 
appname=$ 1 
machme=$2 
setenviron 
gettllog 

getjtuxval > "appname.tux" 
. ./appname.tux 
prog=" 
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- le chemin d'acces au pont (BRIDGE) d la machine. L pont est un 
processus de gestion des communications entre I s serveurs d 
Implication. II sert a amorcer I'application. Chaque machine est dotee d'un 
pont. 

- I'adresse complete du module d'ecoute appelee "NLSADDR". Les 
quatre premiers chiffres representent le protocole de communication utilise. 
Les quatre chiffres suivants representent le numero de port utilise par le 
module d'ecoute qui doit etre different de celui utilise par le processus pont 
(BRIDGE). Les chiffres suivants representent I'adresse reseau de la 
machine. 

La particularite de I'invention est que les informations concernant 
I'application sont directement prelevees dans le fichier actif de la machine 
maTtre. Un administrateur se trouvant sur une machine quelconque du 
reseau peut gerer I'execution de la commande "geMuxval" sur la machine 
maTtre pour le compte de I'administrateur comme represente en page 27 de 
I'annexe 2. 

La sous routine "get_tuxconfig" du programme utilise dans la mis 
en oeuvre du precede d'assistance a ^'administration d'une application 
distribute, recherche sur le disque dur de la machine maTtre le fichier actif 
de configuration de I'application. Celui-ci est ensuite decompile au moyen d 
la commande "tmunloadcf ' (Page 28 de Annexe 2, Lignes 85 a 99). 

get_tuxconfig() { 

if [ -s tuxconftmp.Sappname ] 
then 

cat tuxconf.tmp.$appname 

else 

rm -f tuxconf tmp.* 

prog="$EnV" 
$TUXDIR/bin/tmunloadcf 
echo "\aexit $?" 

t 

#print -r "$prog" > prog 

rsh "SMASTER" -1 "SADMIN" "$prog" | tee tuxcoaf tn5).$appname 

fi 

getjtlistenlog 
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} 

La sous routine "get_tuxval" de ce programme (Page 28 de I'annexe 
2, lignes 112 a 183) preleve les parametres tels que LMID, APPDIR, 
5 TUXCONFIG, TUXDIR, ROOTDIR, ULOGPFX, NLSADDR, UID et BRIDGE 
du fichier binaire de configuration de I'application obtenue a I'aide de la sous 
routine "get_tuxconfig". 

get_tuxval() { 
10 gettuxconfig | \ 

sed _ e »s/=/ /g" -e 's/'V/g' -e 'sAWVO/g 1 1 awk ' 

Les valeurs des parametres recherchees sont tout d'abord 
initialisees. Pour cela des matrices associatives appelees 
15 "tuxconfig_section n sont creees. 
BEGIN { 

tuxconfig_section["*RESOURCES"] = 1 
tuxconfig_section["*MACmNES"] = 2 
tuxconfig_section["*GROUPS"] = 3 
20 tuxconfig_section["*SERVERS"] = 4 
tuxcollfig_section[ ,, *SERVICES ,, ] = 5 
tuxconfig_section["*ROUTENG"] = 6 
tuxconfig_section[" *NETWORK"] = 7 

} 

25 

Un index est associe a chaque matrice. Les parametres recherches 
sont situes dans differentes sections du fichier de configuration. Par 
exemple pour 1'application "Tuxedo", ces differentes sections, au nombre d 
sept, sont appelees "Ressources", "Machines", "Groupes", "Serveurs", 
30 "Services" et "Reseau". Pour pouvoir prelever les parametres dont 
I'ordinateur a besoin, il doit pouvoir reperer I'endroit ou il se trouve dans le 
fichier de configuration. Dans ce programme, lorsque le nombre de champ 
(NF) est egal a 1 , I'ordinateur se trouve au debut d'une section. 



35 NF = 1 { 

if ( $1 in tuxconfig_section ) { 
section = tuxconfig_section[$ 1] 
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Listener Proc sses", il suffit a I'administrat ur de selectionner la fonction 
"Change/Show Listener Processes Parameters" sur le pave (13) d la 
fenetre presentee en Figure 1. La fenetre de la figure 4 apparait. 
L'administrateur doit preciser dans le pave (41), le nom de I'application et 
dans le pave (42), un nom de machine, Suite a cette precision, les autres 
paves (43 a 46) de la fenetre font apparaTtre les valeurs des parametres tels 
que : 

- ('identification de l'administrateur (UID), 

- I'adresse complete du module d'ecoute composee de I'adresse de 
la machine et du numero de port qu'il utilise (NLSADRR), 

- le chemin d'acces au reseau, 

- le chemin d'acces complet au fichier journal du module d'ecoute 
(Listener Logfile Full Path Name, LLFPN), 

Toutes ces informations sont extraites du fichier TUXCONFIG de la 
machine mattre. Ces informations ne sont pas modifiables par cette 
commande, a I'exception du LLFPN. L'annexe 2 presente aux lignes 570 a 
579 de la page 35, la partie du programme correspondant a I'execution de la 
commande de modification du LLFPN. 



chglisten) 

appname=$l 
machine=$2 
shift 2 

if[$#-gt0] 
then 

echo "TLLOG Smachine $1" > $ConfI>ff/tlistenlog.$appname.$imchme 

fi 

exit$? 



Pour pouvoir visualiser les modules d'ecoute actifs de I'application, 
l'administrateur doit selectionner la fonction "Show currently running Listener 
Processes" en cliquant sur le pave (14) de la f netre de la Figure 1. 
L'ordinateur affiche la liste des machines de I'application sur lesquelles un 
modul d'ecoute st actif et I'identification du processus PID (Process 
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NR= 1 {line = $0} 

NR> 1 { print line; line = $0} 

END { if (sub( ,,A exrt " H , line)) exit line; print line; exit -1} 1 
boucle status=" expr $boucle_status \| $?' 
done 

exit $boucle_status 

99 

L'administrateur peut aussi verifier le script d'un module d'ecoute. En 
selectionnant la fonction "Check consistency of Listener Process scripts with 
Tuxconfig" sur le pave (15) de la fenetre representee en figure 1, la fenetre 
de la figure 5 apparaTt L'administrateur doit entrer le nom d'une application 
sur le pave (51) et le nom d'une machine donnee sur le pave (52). Une liste 
des applications et des machines est a la disposition de l'administrateur 
grace au bouton "List" (53). Le programme compare les informations 
contenues dans le fichier TUXCONFIG de la machine maitre et extraites par 
la fonction "get_tuxval" avec les informations contenues dans le fichier 
"tlisten.(nom de rapplication).(nom de la machine)" situe dans le repertoire 
APPDIR de la machine et donne le resultat de cette comparaison. L'annexe 
2 presente aux lignes 580 a 631 de la page 35 et aux lignes 632 a 651 de la 
page 36, la partie du programme correspondant a la verification d'un script 
d'un module d'ecoute qui permet de signaler les discordances entres les 
parametres des fichiers en imprimant par exemple pour le pont "BRIDGE 
values mismatch". 

chklistscript) 

appname=$ 1 
machine=$2 
setenviron 

gettuxval > "appname.tux" 

getjtllog 

. ./appname.tux 

prog=" 

if [ -f $appdir/tlisten.$appname.$machine ] 
then 

cat $appdir/tlisten.$appname.$machine 
echo VWnexit 0\" 
else 
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REVEND1CATIONS 



1. Procede d'assistance a I'administration d'une application 
distribute d'un gestionnaire de traitement des transactions, basee sur un 

5 fichier binaire de configuration (TUXCONFIG) caracterist en ce que ledit 
proctde comporte: 

- une etape de recuperation ^informations relatives d ladite 
application dans un fichier de configuration d'une machine maltre (Mm), 

- une etape de verification de la consistance de ladite application 
10 mise en oeuvre sur une machine donn§e. 

2. Procede selon la revendication 1, caracterise en ce qu'il 
comprend une etape de gestion d'au moins un module d'tcoute (3) d'une 
machine quelconque de I'application a partir d'une autre machine. 

3. Proctde selon la revendication 1, caracterist en ce que les 
15 informations concernant ladite application distribute sont directement 

prelev§es dans le fichier de configuration actif de la machine mattre. 

4. Procede selon la revendication 1 , caracterise en ce que Petape de 
verification de consistance de ladite application consiste en une 
comparaison entre des informations issues du fichier de configuration de la 

20 machine maitre et des informations issues de ladite application courante 
mise en oeuvre sur une machine donnee. 

5. Procede selon la revendication 2, caracteris§ en ce que ladite 
gestion des modules d'ecoute consiste a lancer et a arreter au moins un 
module d'ecoute. a afficher des informations concernant au moins un 

25 module d'ecoute, d modifier le journal d'au moins un module d'ecoute, a 
verifier le script d'au moins un module d'ecoute et/ou a mettre a jour le script 
d'au moins un module d'ecoute. 

6. Procede selon la revendication 2, caracterise n ce qu'il 
comprend une etape de lancement et d'arret d'un module d'ecoute mis en 

30 oeuvre sur une premiere machine, cette etape etant mise en oeuvre par un 
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administrateur ulilisant une deuxieme machine distincte de ia premiere, 
appartenant au meme reseau que la premiere machine. 

7. Procede selon la revendication 2, caracterise en ce qu'il 
comprend une etape d'activation simultanee de plusieurs modules d'ecoute. 
5 8. Procede selon la revendication 1, caracterise en ce qu'il comporte 

une etape de decompilation du fichier de configuration actif de la machine 
maitre. 

9. Procede selon la revendication 2, caracterise en ce que I s 
etapes du procede sont mises en ceuvre par I'intermediaire d'une interface 

10 graphique comprenant au moins une icone, au moins un menu, et au moins 
une boite de dialogue. 

10. Procede selon la revendication 9, caracterise en ce que I s 
menus de I' interface graphique sont structures sous forme d'arborescence et 
I'actionnement d'un menu provoque I'affichage d'une liste de valeurs de la 

15 configuration courante, selectionnable par I'utilisateur. 

11. Procede selon la revendication 4, caracterise en ce que lorsqu 
le fichier contenant des informations sur ladite application mise en oeuvr 
sur une machine donnee (tlog) est inexistant le proced6 le gener 
automatiquement pour pouvoir I'utiliser lors du prochain lancement des 

20 modules d'ecoute (3). 

12. Procede selon la revendication 6, caracterise en ce lesdites 
informations affichees concernant au moins un module d'ecoute(3) 
comprennent au moins le nom de ladite application, le nom logique de la 
machine (LMID)sur laquelle ladite application est executee, ('identification de 

25 I'utilisateur (UID) de ladite application, I'adresse utilisee par le module 
d'ecoute (NLSADRR), le chemin d'acces au reseau de ladite application, le 
chemin d'acces au fichier journal dudit module d'ecoute (LLFPN). 
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